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MODULE PATINT ( ' RST interface routines for PATCH 


L he EQL 1 
er ADDRESSING_MODE (EXTERNAL = LONG RELATIVE, NONEXTERNAL = LONG_RELATIVE), 
poem = 'v04-000' 
= 


BEGIN 


' 
SRR RRAA ARR AAAAAAEAEAAAAARAAAAATER RAAT EAAAAREAARAREKe AAA 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
iw ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
t® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
* 
® 
ie 
w 
® 
® 
® 
ie TRANSFERRED. . 
* 
® 
* 
® 
® 
® 
® 
we 
® 
* 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
: epokat inn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


t® DIGITAL ASSUMES NO RESPONSIBI 
'® SOFTWARE ON EQUIPMENT WHICH I 


'@ 
Lee RRR REAR ARERR AERA AAA ERATE AAA A TAA 
i 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


pepe lee lololololololololololololelolololelelelolelelololeq) 
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003 
0034 
0035 '++ 
Bae FACILITY: PATCH 
0038 ! ABSTRACT: This is the RST/DST/PATCH interface module. 
0039 : This module exists because the DST/RST 
0040 ' module simply declares how it wants to see 
0041 ! the world, and leaves it up to this module 
pong : to interface to PATCH to make things Louk 
Oped that way. 
0045 ! This module defines the interface between the 
0046 : PATCH RST builder/manipulator and the LINKER-produced 
0047 ! DST. The former would Like to show as Little 
004 : concern for where DST records are actually stored as | 
4, : ossible. The latter would like to provide this facility, 
50 : ut it must do so simply (because we don't want to 
051 : re-invent the world), e ficiently, and in such 
26 : as way as to allow us to do radically different 
pez things about where the DST actually exists. 
55 : Essentially what we do to solve this is to restrict the 
2$ : DST user to request ing records before he uses them, 
005 : (probably) saying something about how long he wants 
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to use them (or, equivalently, when he is wy ts tng to give 
them up)» and using them given that ony exist aft the 
e ° 


60 address is told they are currently a This means that 
61 he can never make any assumptions about where a record is at. 
6 To get around this we introduce the concept of ‘Record Ids"’, 
6 which are simply identifiers by which the two sides of the 
64 interface agree to call records. The first time you 
65 et a record, the interface telis you how you mus 
$8 enceforth refer to it. 
68 The other aspect of the interface concerns so-called 
9 RST-pointers. These pointers are used throught the 
0 RST module to access various (all) records. The code 
71 uses these pointers implicitly, knowing nothing 
7 about what they actually are, and leaves it up to this 
7 interface to define them. This is done by 
74 having a special storage allocator for the RST 
75 module. It uses whatever kind of pointer this 
7 allocator returns, and leaves it up to 
7 the definition of the RST structures (RST_NT, 
78 RST_MC, etc. see PATRST.REQ) to make 
He 4 sure that these RST-pointers do the job. 
81 
; ENVIRONMENT: This module runs on VAX under STARLET, user mode, non-AST level. 
AUTHOR: Kevin Pammett, CREATION DATE: 12 JULY 77 
MODIFIED BY: 
v03-005 MCNO157 Maria del C. Nasr 20-Mar-1984 
Remove any references to OLCSAB since it is not used. 
v03-004 MCNO151 Maria del C. Nasr 13-Feb-1984 


Add qualifier VOLATILE to local variable GL_SYM_COUNT to 
informational messages from the compiler. 


v03-003 MTROO17 Mike Rhodes 15-Nov-1982 
Correct the ‘next ence point’ address computations for 
aye EPM and GSDSC_PRO type symbol definitions in routine 


PATSGET_NXT_GST. 

v03-002 MTROOI2 Mike Rhodes 16-Aug-1982 
Modify file names to remove duplicate file name useage 
between code and require files. 


v03-001 MTROOO7 Mike Rhodes 14-Jun-1982 
Use gnored oxstes wea eh Affected module 


oo 


. include: 
DYNMEM. ATBAS. PATCMD.B32, PATIHD.B52, PATINT.B32 
PATIO.B32, PATMAL.B52, PATMSG.MSG, PATWRT.B32, and PATSPA.B32. 


The shared messages are defined by DYNMEM.B32"s invocation of 
SHRMSG.REQ and we simply Link against these symbols. They are 
declared as external Literals below. 


vO2-017 MTROOO2 Mike Rhodes 30-Nov-1981 
Modify routine PATSGET_NXT_GST to skip global symbol 
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3 13 113 } definitions for PSECT definition in shareable images. 

: 119 113 1} v02-016 MTROOO1 Mike Rhodes 14-0ct-1981 

3 133 118 1! Modify routine PATSFIND DST to allow the create and map 

s 93 119 1! section system service fo do expand region calls, instead 

: 120 120 1! of trying to remember the last mapped address in PO space. 

: : 1 ; 1 : } The last mapped address array is updated within the calls. 

. 4 : 1 g 1! v02-015 PCG0001 Peter eat 02-FEB-1981 

3 : : : 2 : Add require statemont for LIBS:PATDEF.REQ 

H ; § 0 $ ! NO DATE PROGRAMMER PURPOSE 

: 128 108 1! 

; 129 129 1! 0 13-DEC-77 K.D. MORSE ADAPT VERSION 19 FOR PATCH. 

; 150 130 1! 1 Sea K.D. MORSE ALLOW NO GST IN IMAGE. 

3 131 137 17! 2 3-JAN-78 K.D. MORSE ADD CODE FOR MORE teat 

= 3 ¢ Bt ¢ 1: ERROR MESSAGES. (20) 

) os 1 1! 03 28-FEB-78 K.D. MORSE SAVE_SCOPE NOW DOES A SET 

: 134 0134 1! MODUCE ON THE SCOPE'S MODULE. 

s 135 01355 1! 04 06-APR-78 K.D. MORSE PATSFIND_DST now maps the 

3; «(136 + Be instead of needing it.(22) Added 

3 «157 137 1! routine POSITION_GST to chain 

: 138 0138 1! through the mapp d GST. Also 

; 139 + 9 1! the logic in DBGSGET_NXT HH 

3; 140 140 1! now calls POSITION_GST. 23) 

> (141 0141 1! Bug fix in FIND_DST to skip the 

: 16g Beg 1! first 2 GST records OK. (24) 

3; (14 0145 1! Bug fix in POSITION_GST = round 
3 146 0144 1! up a record byte count. ) 

3 145 0145 1! GSR_NEXT_ADDR is now a REF VECTORE, byte]. (24) 
> 146 0146 1! Addéd code to BUILD PATH to chec 
3 147 0147 1! for DEFine symbols Before 
; 148 0148 1! consulting the RST. BUILD PATH 
3 (149 0149 1! has the final word on whether 
; 150 0150 1! a symbol has a value or not. (25) 

; «6151 0151 1! None for vers 26. 

; 13¢ bag 1! 05 25-APR-7 K.D. MORSE CONVERT TO NATIVE COMPILER. 
; 015 1! 06 #£17-MAY-7 K.D. MORSE ERROR MESSGES FROM GST/DST INIT. 
3; «(154 B13 1! ARE NOW INFOR SEVERITY. 
3 1395 155 17! POSITION_GST CHECKS FOR NO GST (27). 
: 136 8128 1: NO CHANGES FOR VERS 28. 
; 15 0157 1! DELETE_PATH IS GLOBAL AND HAS NO 

; 4158 138 1! FORMAL INPUT AND ALWAYS ZEROS 

: 159 159 1/3 THE PATH VEC_PTR. (29) 

: 160 160 1! BETTER ERROR™MSG IN SAVE_SCOPE (30). 

; 6161 161 1! O7 #£«.18=MAY-78 K.D. MORSE CANCEL THE SCOPE IF THE MODULE 

3 106 B1e¢ 1} IT POINTS TO IS CANCELLED. (51) 
s Bie zz POSITION GST NOW SEES GST 

; 108 He: : NOT o, (30) THAN HEADER SAY 

> 166 166 1! NOTE THE "ROUND UP’’ IN GET_NXT_GST 

3; 167 167 17! TO RECOGNIZE END OF gs! RECORD? (32) 

; 168 168 1! NO CHANGES FOR VERS ° 

s 19? 199 1! 08  24-MAY-78 K.D. MORSE ADD GSD TYPE 3 = PROCEDURE 

: 170 170 1! DEFINITION WITH FORMAL ARGUMENT 

3; #171 0171 1! DESCRIPTIONS. 
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; TABLE OF CONTENTS: 

FORWARD ROUTINE 
PATSSAVE_SCOPE, 

PATSBUILD_PATH, 


PATSF IND MODULE, 
PATSRST_FREEZ, 


PATS$GET_BST_RE 
PATSPOSTTON_DS 


POSITION GST, 
PATSGET_NXT_DST, 
PATSGET_NXT~GST;: 


C. 
T, 


] 
INCLUDE FILES: 


LIBRARY ‘SYSSLIBRARY: 


a a at ad 8 hd 8 ds a 8 ts ts a a a ss a st 
~ 


PATSDELETE PATH : 


PATSRST_RELEASE : 
PATSFIND DST : NOVALUE, 


L18. 
REQUIRE oT TES paroee nee’. 


EQUIRE ‘SRC$:BSTRUC.REQ 
REQUIRE ‘SRCS$:LISTEL.REG 
REQUIRE "SRC$:DLLNAM.REQ 
REQUIRE ‘SRC$:PATRTS.REQ 
REQUIRE ‘SRC$:VXSMAC.REQ* 
REQUIRE ‘SRC$:SYSSER.REQ'; 


p 5 
CIPATINT.B32:1" (2) 


Store away the current scope position 
(CSP) vector. 

Collect symbol pathnames and eventually 
try to evaluate them. 

Throw away a pathvector. 

Scan MC for a given module name. 
Storage allocator for an thing which 
which is accessed via RST-pointers. 
Storage deallocator for ny ba which 
which is allocated by PATSRST_FREEZ. 
Find the DST and make it available. 

Make a certain DST record available. 

Make a certain DST record available 
and set up for PATSGET_NXT_DST 

Make a certain GST record available 

Make the next DST record available. 

Make the next GST record available 


literals 


K 15 
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SWITCHES LIST (SOURCE); 

EXTERNAL ROUTINE 


T$fao_out; ! formats a Line and outputs to the terminal 
| 
| 
| 

= = j 
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H 1 1 REQUIRE ‘'SRCS$:SYSLIT.REQ'; ; 
; 240 1 REQUIRE ‘SRC$:PREFIX.REQ'; : 
; 8 25 : REQUIRE ‘SRC$:PATPRE.REQ'; | : 
; 5 7} : 
; 231 93 1 | MACROS: | ; 
3 ¢ 9% 1! : 
3 > 3 | : 
; 239 1! : 
; 5 597 1 ! EQUATED SYMBOLS: : 
; 598 1! | : 
: 599 1! : 
3 8 600 1 ! OWN STORAGE: : 
; 9 601 1! : 
; 240 o0¢ 1 : 
; 241 605 1 OWN : 
s 2 604 1 PATH_VEC_PTR : REF PATHNAME_VECTOR INITIAL( 0 ), ! Pointer to the pathname vector we are : 
; 24 2605 1 ! currently building. If 0, no such vector 3 
; 246 $006 1 ! is under construction. : 
> 245 607 1 DST_BEGIN_ADDR, ! virtual address where DST begins. : 
; 246 2608 1 ! 0 => no DST. Initially we do not ; 
; 247 609 1 ! want to assume this. : 
; 248 610 1 DST_END_ADDR ! Virtual address of last byte in DST. ; 
; $38 ei) : DST"NEXT_ADDR, ! Virtual address where ‘next’ DST record be : 
; $2) 3618 1 14+ : 
; $2¢ sete : Now GST symbols corresponding to the above DST symbols. ; 
; 254 2616 1 GSR_BEGIN_ADDR, ! Virtual address where GST begins (0=no GST 3 
3; @29 2617 1 GSR_NEXT ADDR : REF VECTORC,WORDJ, ! Virtual address where ‘next’ GST record be ; 
; 256 $018 1 GST-BEGIN_ADDR : REF GST_RECORD, ! Virtual address of current GST record (use : 
: 257 619 1 GSD-REC_COUNT; ! Count-down of GSD records. 3 
; 258 2620 1 ; 
; 259 2621 1! 3 
; 260 sos¢ 1 ! EXTERNAL REFERENCES: : 
: $e) 26 1! 3 
; oe sost 1 EXTERNAL ROUTINE 3 
; 26 625 1 PAT$PV_TO_CS, ' Encode pethnene vectors for printing. 3 
: 264 soc6 1 PATSFIRD SYM, ' Lookup DEFine symbols 3 
; 265 2627 1 PATSSET_MODULE : NOVALUE, ! Adds module to the RST 3 
; 266 2628 1 PATSSYM_TO_VAL, } cerreepeng pathnames and values. 3 
; 267 soe? 1 PATSSYM VALU, ! Sym_to_val + goodies. 3 
: 268 630 1 PATSINIT_RST : NOVALUE, ' Build all RST data structures. 3 
; 269 $63) 1 PATSFR ' Standard PATCH storage allocator. 3 
: 270 6 ¢ 1 PATSFREERELEASE : NOVALUE, ! Standard PATCH storage deallocator. : 
; $7 $03? ! LIB$_CREMAPSEC; ! Creates and maps a global section : 
; 218 $o32 1 EXTERNAL ; 
: 276 636 1 PAT$GB_SYMBOLS, ! Indicator if image contains symbols ; 
: 275 637 1 PATS$SGL_IMGHDR : REF BLOCKL gyTed. ' Pointer to image header 3 
: 276 638 1 PATSGL-OLDNBK : BLOCKL,BYTE), i Name block for input image file ; 
; ar 639 (1 PAT$GB_ ° ' Ascii name of input es file : 
: 278 640 1 PAT$GL_ISVADDR : VECTORC,LONG], ' Last pair of virtual addresses used 3 
s ery 641 1 PATSGL_CSP_PTR : REF PATHNAME_VECTOR, ' The Current Scope Position (CSP 5 
; 280 642 1 ' is defined by a pointer to the 3 
; 281 643 1 ! pathname vector which is the CSP. ; 
; 282 644 1 PATSGL_MC_PTR : REF MC_RECORD, ! The module chain | : 
| 


INT 
-000 
3 
5 
9 
90 
33 
98 
94 
95 
7 
98 
99 
00 
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PATSGL_SYMHEAD; 
EXTERNAL LITERAL 
! Define shared message references. (resolved @ Link time) 


P 
PAT$~SYSERROR, 
PATS_WRITEERR: 


V 
D1 
' 


A 
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Address of start of RST 
Head of PATCH argument List 


Pointer to current symbol tabl 


e 
Pointer to user-defined symbol table l‘sth 


Error closing input file. 
Error closing output file. 
Error opening input file. 
Error opening output file. 
Error reading from file. 
System Service error. 
Error writing to file. 
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: Re $6 } GLOBAL ROUTINE PATSBUILD_PATH( SYMBOL_DESC, PASS_BACK_VALUE, SIGNAL_FLAG ) = 
: 304 665 1 !+¢ | 
: 05 re ! Functional Description: 
; oF re } This routine serves two fairly distinct purposes. 
i $09 670 1 1 1. If SYMBOL_DESC is a valid string descriptor, (ie not = 0), | 
; 310 671 1! then the call was made to BUILD_PATH so that it could 
; «(311 ors 1} accumulate the elements of a pathname in order to 
; \¢ of? : build up a pathname vector. 
3; 314 675 1! 2. Otherwise, the 0 SYMBOL_DESC is a flag which signals that | 
s 315 o76 1! no more elements are to come and what we have accumulated 
: 16 677 1! is supposedly a complete pathname. What we are to do then 
3; 317 678 1! is to simply look up this pathname in the RST data base and | 
: i 244 ; } return the corresponding value via the PASS_BACK_VALUE pointer. | 
; 326 ret ' When a lookup is done, the following priority is observed: 
; $§ seBs 1/ 1) a pathname consisting of 1 element may first be: | 
; i 684 1! 1) a pernenent symbol name (e.g. ‘'RO"') 
> 324 685 1! 2) a DEFine symbol 
3 36? 686 1! 2) if 1), above, is not the case, or if the pathname 
; 326 687 1! is Longer than 1 element, then the symbol must 
: 44 one ! be found in the RST or an error occurs. 
; $9 Zest ! Calling Sequence: 
Ps ; | 
: $33 res : PATSBUILD_PATH ( SYMBOL_DESC, PASS_BACK_VALUE, SIGNAL_FLAG) 
; 335 2694 | i Inputs: 
: 335 2696 1! SYMBOL _DESC - String descriptor for next peice of pathname or 
; 336 2697 1! zero indicating accumulated pathname is to be 
3 Sor $098 : 7 evaluated. 
; 338 699 1! PASS_BACK_VALUE = Address of where to return the symbol's value 
; 339 2700 1! SIGNAL _FLAG - Flag indicating whether to signal error message 
: $09 $70) : } if symbol is undefined. (TRUE=yes, FALSE=no) 
; se8 8 : Implicit Inputs: 
; 3c4 705 1 This routine works from the OWN that is local to this 
3 oF $708 zB. module, PATH_VEC_PTR, which points to the current pathname vector 
: 346 707 1! we are building.” The reason why this is not local to BUILD_PATH 
3 ot 4 A's : is so that it can be shared by SAVE_SCOPE. 
; i ay ! ; Return Value: 
; 351 ig 1! On pathname accumulation, we return TRUE unless some error 
; 358 ay ' Like PATCH running out of free storage occurs; then an error is SIGNALed. 
: 354 715 1/3 On symbol evaluation, we return TRUE if the symbol was found 
; 355 rg 1: in the image Syebo' tables and PATSK_USER_DEF if the symbol was found 
: 356 7i7 1! in the user-defined syabol table. If the symbol is undefined 
3 gor m8 1! then may or upon SIGNAL_FLAG either an error mensege is SIGNALed 
; 358 719 1! and an UNWIND is done, or PATSBUILD_PATH returns FALSE. This is to 
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; Fe 4 ? ! handle forward references inside symbolic instructions. 

3 3e) 7 ¢ 1 

; $6 7 BEGIN 

; 724 

: 64 725 MAP 

; 369 726 SYMBOL_DESC : REF BLOCKC,BYTE], ! This describes the element of the 
; 366 72? ! pathname which we are to add on 

; 367 728 ' to our list. 
; 368 729 PASS_BACK_VALUE : REF VECTORC,LONG); ! This is where we are to pass back 
; +4 r3 ! the pathname value to. 

: 371 13¢ OWN 

s 6ST 7 PV_INDEX; ! We use an OWN index into the OWN 
; 7 734 ! pathname vector so that on each call 
; ie 4 2 ! we know where we're at. 

: 376 ster LOCAL ‘ : 

: 77 738 CS_PTR : CS_POINTER, ! Temp counted string pointer. 

; 378 sip STATUS; ! Success/failure indication that we return. 
3 By 740 

; 380 741 '++ 

: 381 re ! Now see whether a pathname translation to symbolic value. 

; 74 ! is to occur. This is signaled by the flag SYMBOL_DESC being 

; = 744 ' equal to 0. 

; «384 2745 lon 

; 385 2746 IF (.SYMBOL_DESC EQL 0) 

; 386 16h THEN 

; 387 748 BEGIN 

> 388 sree '++ 

: 389 750 ! Evaluate the symbol. First, for single-element pathnames we give 

; 390 2751 ; ! priority to the so-called PATCH permanent symbols, and to the symbols 

:. $f2¢ , BEF ined by the user at PATCH-time. No longer pathname could be such 

; 75 ! a thing. 

; 39 2754 Hote 

: 394 2755 STATUS = 0; 

: 395 756 4 IF (.PATH_VEC_PTR(1] EQL 0) 

3 38 ela THEN 

; 39 758 4 BEGIN 

; 398 759 4 LOCAL 

; 99 760 4 TEMP_SYM TBL, 

; rey} s/o! ? DEF_SymM_BESC : BLOCKC8,BYTE); 

: 40 3768 4 les 

; 40 764 4 ! A l-element pathname may be or a DEFine symbol. First build 

3 4604 765 4 ' a string descriptor for the name (since this is what 

; 605 766 4 ! PATSFIND_SYM wants). 

H res 767 & leo 

; 40 768 4 CS_PTR = .PATH_VEC_PTRCO); 

: 408 769 4 DEF_SYM_DESCCDSC$W"LENGTH) = -CS_PIREO}: 

; 409 770 4 DEF_SYM_DESCCLDSCSA_POINTER) = CS_PTR(1); 

: 410 771 & 

3; «6411 772 4 '¢+ 

3 +18 775 4 ! The symbol is not a permanent one. Now lookup it up in the 

; oi7 ae ? ! Linked List reserved for DEFine symbols. 

; «415 776 4 TEMP_SYM_TBL = .PATSGL_SYMTBPTR; ! Remember curren symbol table 
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PATSGL_SYMTBPTR = .PATSGL_SYMHEAD; 
STATUS~= PATSFIND_SYM(DEF-SYM_DESC); 
PATSGL_SYMTBPTR =~. TEMP_SYM_TBL; 


ee 
! If we found something, pass back the associated vaiue 
and set STATUS to the appropriate success code. 


if (.STATUS NEQ 0) 
THEN 


! Use user-defined symbol table 
! Restore current symbol table 


BEGIN 
PASS BACK VAL VECO) = .SYM_VALUE(. STATUS); 
STATUS = PAT$K_USER_DEF; 


END; 
lee 


! Now, if we didn’t get something from the DEFine 
or permanent symbol data bases, try the RST. 


if (NOT .STATUS) 
STATUS = PATSSYM_TO_VAL( .PATH_VEC_PTR, .PASS_BACK_VALUE); 


ee 
! If no translation can be found, Check whether to SIGNAL an error 
i and cause an UNWIND or return FALSE. 


if (NOT .STATUS) 
THEN 


BEGIN 
LOCAL MESSAGE_BUF : VECTORCTTY_OUT_WIDTH. BYTE); 


'e¢ 

! Encode the pathname into a counted 

string, and output the associated message. 
PATSPV_TO_CS( .PATH_VEC_PTR, MESSAGE_BUF ); =: 
PATSDECETE_PATH(); eae 
PATH_VEC_PTR = 0; . 

'ee 

! Check if this might be a forward reference and therefore 
: should not be signaled as an error. 


IF (NOT .SIGNAL_FLAG) 
RETURN(FALSE) 
SIGNAL (PATS_NOSYMBOL, 1, MESSAGE_BUF ); ! no return 


ELSE 
END; 


'ee 
! If the evaluation succeeded, discard the pathname vector and 
' return success. 


PATSDELETE_PATH(); 
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RETURN(. STATUS) ; 
END; 


lee 

! A real string descriptor is supposed to pass on to us another pathname 
: element to accumulate. 

i If this is the first call for a new pathname, we must allocate the storage 
! we will need for the vector of pointers to the element strings. 


844 3 IF (.PATH_VEC_PTR EQL 0) 
45 THEN 
4 BEGIN 
944 dl ((PATH_VEC_PTR = PATS$Sfreez(RST_UNITS(ZSIZE(PATHNAME_VECTOR)))) EQL 0) 
tH SIGNAL (PAT$S_NOFREE); ! No more storage. 
851 'o+ 
b2¢ ! The storage manager zeros out the pathname vector for us, so we only 
Sez have to set up the right pathname vector index. 
855 Pv_INDEX = 0; 
856 ENB; 
857 
858 '++ 
: $28 Now we need space for the element name itself, (including the count! ). 
500 562 if ((CS_PTR = PATSfreez(RST_UNITS(.SYMBOL_DESCCDSC$W_LENGTH]+1))) EGL 0) 
0 
5 es 
04 865 lee 
05 866 : Copy the string into the allocated storage. Note that we must make up a counted 
$8 th string because this is what pathname vector pointers are defined to point to. 
08 86 CS_PTRCOJ = .SYMBOL_DESCCDSC$W_LENGTH]; 
; CHSMOVE( .SYMBOL_DESCCDSCS$W_LENGTH), . SYMBOL _DESCCDSCSA_POINTER], CS_PTRCE1] ); 
ee 


! Now store the address of this counted string in the ‘next* slot in the 
pathname vector. 


PATH_VEC_PTRC.PV_INDEX] = .CS_PTR; 


ee 
' And set up so that the next call to this routine stores the CS pointer into the 
' next slot. 


LF ((PV_INDEX = .PV_INDEX #1) GTR MAX_PATH_SIZE) 


BEGIN 
SIGNAL (PAT$S_PATHTLONG); 
RETURN(FALSED; 


RETURN( TRUE); 
END; 


EN 
SIGNAL (PAT$_NOFREE); ! No more storage. 
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Sep-1984 6 VAX-11 Bliss-32 V4.0-742 p 13 
1b-te 7308-1382 9}: 95: 38 DISKSVMSMASTER:CPATCH.SRCIPATINT.B32:1 > (3) 
«TITLE PATINT 
-IDENT \V04-000\ 
.PSECT _PATSOWN,NOEXE,2 
00000000 00000 PATH_VEC_PTR: 


7 LON 0 5 
00004 DST -BEGIN, ADDR: ; 
00008 DST_END ~ADDR: ; 
QO00C DST_NEXT_ADDR: 
7BLK 4 
00010 GSR BEGIN, ADDR: ‘ 
00014 GSR_NEXT =AbDR: ‘ 
00018 GST -BEGIN, ADDR: i 
0001C GSD_REC_COUNT: 
-BLKB 4 
00020 PV_INDEX: 
-BLKB 4 
ISESC_SIZE== 20 
TXT$C_SIZE== 4 
PAL$C_SIZE== 16 
ASDSC_SIZE== 9 
FWRSC_SIZE== 24 
-EXTRN PATSFAO_OUT, PATS$PV_TO ase 
“EXTRN PATSFIND SYM, PATSSET 


ULE 
“EXTRN PATSSYM TO_VAL sO TO. VALU 


OFFC 00000 ENTRY ParsauiLD. PATH, Save R2,R3,R4,R5,R6,R7,R8,—- ; 26635 
5B 000000006 EF 000 MOVAB Rrrareeer R11 ; 
SA Vv EF $e 000 MOVAB PATSDELETE_PATH, R10 : 
59 G fr 3f 7 MOVAB PATSGL_SYMTBPTR, R9 3 
38 0 G 00 9 901 MOVAB LIBSSIGNAL, R : 
57 00000000' EF 9E 000 MOVAB PATH VEC PTR, R7 : 


i 
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v04=000 14- =Sen- 198 9}: 9g: 38 DISKSVMSMASTER: CPATCH. SRCJPATINT.B32; 1 7% (3) 
55 rr 6c 00 . MOVAB =132(SP) i 
04 aC D A MOVL SyMBOL_ bést. R2 t 2746 
79 «1 Bp BNEQ $ : 
54 D4 000 CLRL STATUS + 2755 
50 67 DO 000 MOVL PATH VEC_PTR, RO + 2756 
04 Ad D5 000 TSTL  4(ROT : 
32 12 00038 BNEQ =:'1$ : 
56 60 DO OO03A MOVL (RO), CS_PTR + 2768 
7c OA 66 98 0003D MOV2BW (CS_PTR)> DEF_SYM DESC : 2769 
FC AD 01 ag 3 0041 MOVAB 1(R8), DEF_SYM_DESC+ 4 : 2770 
5 69 D 0046 MOVL §§PATSGL_SYMTBPTR, TEM : 2776. 
69 000000006 EF pO 004 MOVL —~ PATSGL~SYMHEAD, ‘PATSGL. SYMTBPTR : 277 
7C «=AE OOF 00 30 PUSHAB DEF_SYM_DESC : 2778 
000000006 Ef Q1 FB 0005 CALLS #1, ~PATSFIND_SYM : 
4 0 DO 0005A MOVL RO. STATUS ; 
69 53 D0 0005p MOVL § TEMP_SYM_TBL, PATSGL_SYMTBPTR : 2779 
54 D5 00060 TSTL STATOS + 2785 
08 13 00062 BEQL 6-1 : | 
08 Bc 08 Ad DO 00064 MOVL B(STATUS) « @PASS_BACK_VALUE > 2788 
54 03 DO 00069 MOVL ae STATUS + 2789 
33 54 £8 0006C 1$: BLBS STATUS, 2$ : 2797 
08 aC DD 0006 PUSHL  PASS_BACK_VALUE : 2799. 
67 DD 00072 PUSHL PATH-VEC PTR : 
00000000G_ EF 3 FB 00074 CALLS #2, pATSSYM. TO_VAL 3 
54 50 pO 00078 MOVL RO, ; 
21 54 £8 O007E BLBS CTATOS. 8 : 2805 
5E DD 00081 PUSHL SP > 2814 
67 DD 00083 PUSHL PATH_VEC_P PTR : | 
000000006 _ EF 02 FB 00085 CALLS #2, PAT $Py F 
6A 00 FB 0008C CALLS #0 PATSDECETE PATH > 2815 
67 04 O00BF CLRL ATH. C_PTR > 2816. 
78 Oc aC €9 00091 LBC  SIGNAL_FCAG, 8$ : 2822. 
5E DD 00095 PUSHL SP : 2826 
01 DD 00097 PUSHL #1 : 
00608090 8F DD 00099 PUSHL #7176336 : 
68 03 FB 0009F CALLS #3, LIBSSIGNA : 
6A 00 FB OOOA2 28: CALLS #0, SATSDELETE _PATH > 2833 
50 54 DO OO00AS MOVL STATUS, RO + 2834 
04 OO0A8 RET : 
67 DS OOOA9 3S: TSTL | PATH_VEC_PTR > 2844 
16 12 OOOAB BNEQ 5$ : 
0B DD O00AD PUSHL #11 + 2847 
68 1 FB OOOAF CALLS #1, PATSFREEZ : 
67 0D 00082 MOVL RO. PATH_VEC_PTR : 
9 1 B BNEQ : 
00608112 8F DD 00087 PUSHL #7176466 > 2849 
68 01 FB 000B CALLS #1, LIBSSIGNAL ; 
20 A7 Re bee 4$: CLRL PV_INDEX ; 2855 
50 62 3C 000C3 5$: MOVZ2WL (R2), RO > 2861 
50 04 C6 00C6 ADDL2 #4, RO ; 
7E 50 4 €¢€7 0009 DIVL3 #4, RO, -(SP) F 
68 gi FB OO00CD CALLS #1. PATSFREEZ : 
6 0 D 0 D VL RO, CS_PTR ; 
9 1 D NEQ 6$ 5 
006D8112 8F DD 0000 PUSHL #7176466 > 2863 
8 1 FB 9008 CALLS $SIGNAL ; 
66 62 90 OOODE 68: MOVB iR abyt (CS_PTR) > 2869 


16 

PATINT 18-3 -1984 :02: VAX-11 Bliss-32 V4.0-742 Page 15 
v04=000 ence aRe Pes ee ee eae teaccbatcn SacaparinT.e326%°" che 
01 Ab 04 e “ 62 2 3 MOVCS (R2) , 94 (R2), 1(CS_PTR) ; 3 70 

90 B74 6 D E MOVL rep TRS SPATH_VEC_PTRCROJ ; 
50 Ly ; ee i! ADDL3 rl, PV_INDEX, R ; 2882 

20 A7 8 dO F MOVL Ree PV_INDEX ; 

= 8 $3 ooore my Oe we 
00608152 $8 DD OOOFE PUSHL #7176530 + 2885 

48 01 FB 00104 CALLS #1, LIBSSIGNAL : 
04 11 00107 BRB $ + 2886 
50 01 Bo 00109 7$: MOVL #i, RO ; 2888 
50 04 iets 8$: CLRL = RO + 2889) 
04 0010F RET : 


: Routine Size: 272 bytes, Routine Base: _PATSCODE + 0000 
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v04-000 19-88-1382 93:98:38 DISKSVMSMASTER = CPATCH, SRCJPATINT.B32:1° (4) 
; 1 39 ! GLOBAL ROUTINE PATSDELETE_PATH : NOVALUE = 
: ; 3 1 !+¢ 
; + ! Functional Description: 
: 5 95 1! Delete the pathname vector we are passed a pointer to by the OWN, 
; é 98 , PATH_VEC_PTR, which several routines in this module work from. Also, 
3 or 3 zero out this pointer so that the next call to BUILD_PATH knows 
3 : 343 : there is no ‘current’ pathname vector being built. 
: 540 900 1 ! Formal Parameters: 
> «541 es 
; ri} 9 § 1: none 
3; 903 1! 
; 544 906 1! Implicit Inputs: 
; 5465 905 1! 
; 546 206 1} PATH_VEC_PTR = See above. 
: 547 907 1! 
; 548 908 1 ! Return Value: 
; 549 909 1! 
; 550 910 1! NOVALUE = because the only thing which can go wrong 
3 D2 911 1! is a free storage error and in that 
3 226 aig 1! case the manager itself SIGNALS its way out. 
3 33 91 1 ! 
; 554 914 1 !e= 
3 Soe 915 1 
; 556 916 BEGIN 
3 357 917 
; 558 918 LOCAL 
; 559 919 CS_PTR : CS_POINTER; ! Each element of the pathname vector 
; 369 $31 ! is a pointer to a counted string. 
; See 92¢ 2 its 
s 36 9 ! Now see if there is really a pathname vector currently pointed to by the 
; 564 924 ! pointer, PATH_VEC_PTR. 
; 565 2925 len 
; 566 926 3 IF (.PATH_VEC_PTR EQLA 0) 
s 567 927 T 
3 68 928 RETURN; 
; 569 929 
; 570 930 !+e 
3 Srl 931 ! Simply throw away the storage which we allocated 
3 276 936 for each element of the vector. 
: sr 33 INCR I FROM 0 TO MAX_PATH_SIZE 
; 575 935 DO 
; 278 338 lee 
: aoe TA The first 0 entry ends the vector. 
; 579 939 if ((CS_PTR = .PATH_VEC_PTRC.1]) EQL 0) 
; 580 940 TH 
s 381 941 EXITLOOP 
s oB¢ 94 ELSE 
3 ea: ot PATSFREERELEASE( .CS_PTR, RST_UNITS(.CS_PTRCOJ+1) ); 
3 385 945 '+ . 
; 586 946 ' Then throw away the vector itself. 


PATINT 1b-50 Sep-1984 VAX=11 $-32 V4.0-742 Pa 
v04-000 ety 7 93: 95: 38 DISKS$V nen TER: CPATCH. SRCJPATINT.B32;1 79 
: 7 947 Hooed 
; i 3e8 PATSFREERELEASE( .PATH_VEC_PTR, RST_UNITS( ZSIZE(PATHNAME_VECTOR) )); 
: g 'e+ 
; 591 38 i Jero out the pointer so that subsequent re-uses know there is no longer 
: 3 9 § i one there. 
; 92 387 3 VEC_PTR 0 
; 7 
; 595 32? eet 
; 596 956 END; 
003C 000 ENTRY PATSDELETE_PATH, Save R2,R3,R4.R5 3 
55 494 44 6 EF 9E 00009 MOVAB PATSFREERECEASE, R5 : 
54 00000000" EF 9E 000 MOVAB PATH_VEC_PTR, R4 : 
4 D 0019 TSTL §PATHVECPTR : 
5 13 0001 BEQL 3$ 3 
D4 00014 CLRL I 3 
53 00 B44 0 0016 1$ MOVL @PATH_VEC PTRCIJ, CS_PTR ; 
1 1 0018 BEQL é 
50 63 9A 00010 MOVZBL (CS_PTR), RO : 
50 04 C9 00 9 ADDL #4,°R 3 
7E 50 9% C 00 DIVL #4, RO, -(SP) : 
3 OD Ba5 7 PUSHL 3 
65 02 Fe 0029 CALLS #2, PATSFREERELEASE ; 
bb 52 OA F3 000eC AOBLEQ #106, I, 1$ ; 
0B DD 00030 2$ PUSHL #11 ; 
64 DD 00032 PUSHL on : 
65 02 FB 000 CALLS PAT SFREERELEASE é 
64 D4 00037 CLAL PATH. F 
04 00039 3$ RET : 
; Routine Size: 58 bytes, Routine Base: _PATSCODE + 0110 
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; 238 336 } GLOBAL ROUTINE PAT$s. c_SCOPE( SET_SCOPE_FLAG ) = 

; 600 % 2 1 !+4 

; 601 960 1 ! Functional Description: 

; rey 961 1! 

3 obz 306 : } This routine serves two fairly distinct purposes. 

; 605 964 1! 1. IF SET_SCOPE_FLAG is ON, then this routine was 

3; 6 965 1! called to SET the new current scope position (CSP). 

; 60 ie 1! In th*s case we delete the storage taken by the old 

; 608 967 1! CSP, if there was any, and install the new CSP 

; 609 968 1 having checked its validity. 

; ei9 34 : SET SCOPE also implies SET MODULE. 

3 oig 971 1! 2. If SET _SCOPE_FLAG is OFF, then the call was made to simpl 

; 61 He 1} instalT a null CSP vector. This happens as a result of the user 

; 614 975 1! cancelling scope, or cancelling a module whose name is the same as what the 
; oi? are : CSP pathname begins with. The latter avoids the ‘dangling scope’ problem. 
Z £19 376 1! Implicit Ivputs: 

; 618 977 1! 

; 619 978 1! This routine works from the OWN that is local to this 

; 620 979 1! module, PATH_VEC_PTR, which points to the current pathname vector 

; 621 980 1! which was (presumably) built by BUILD_PATH. We store 

; @ g 981 1! away this pathname vector pointer, and then zero out the 

3; 6 oRe 13 one that BUILD_PATH uses so that it ‘forgets’ completely 

; 624 a about having built it. 

3 @e3 984 1! 

; 626 985 1 ! Return Value: 

; 627 986 1! 

; 628 987 1 ! TRUE, if we are sinoty throwing away the old CSP, 

; OEP 988 1! or if we installed a new one which was acceptable, : 

3 oat 3434 : } FALSE, otherwise. (we were asked to install one which was invalid). 

3 O34 991 1 !e- 

3; @. 336 1 

; 634 99 BEGIN 

; 635 994 

3; 6 995 LOCAL 

3; 637 996 NEW_CSP_PTR : REF PATHNAME_VECTOR, 

: 638 997 MC_PTR = REF MC_RECORD, ! Used to chain along the Mc. 
; 639 998 CS-PTR : CS_POINTER, ! Temp counted string pointer. 
: on 999 STATUS; ' Success/failure indication that we return. | 
3 oh 804 !++ a 2 

; 7 4 : The gross structure of this routine just implements the two-function logic. 

; 645 004 IF (.SET_SCOPE_FLAG) 

; 646 005 THEN 

3; 647 BOS BEGIN 

; 648 00 e+ ; : 

; 649 008 ! Install a new CSP vector. Check that the CSP we were given is valid. 
: 650 009 ' First, see if the beginning element of the pathvector (which must be 
; 651 010 i MODULE) is in the MC. Note that we don't consider the first entry in 
; 636 ae the MC since it is used for globals only and hence is nameless. 

3; 654 O18 CS_PTR = .PATH_VEC_PTR(O); 


a 
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000 127888718 4 95:93:30 DISKSVMSMASTER:CPATCH, SRCIPATINT.B32: 1° (5) 
; 655 14 3 MC_PTR = .PATSGL_MC_PTR; 
; 6 $ 13 , WHTLE ((MC_PTR =~.MC_PTR CMC_NEXT]) NEQ 0) 
; 658 13 4 BEGIN 
; 659 518 : IF (CHSEQL(.MC_PTRCMC_NAME_CS], MC_PTREMC_NAME_ADDRI, 
; 660 01 ~CS_PTRCOJ? CS_PTRE1J)) 
; 661 020 4 THEN 
3 606 021 4 EXITLOOP ! Found. Continue on to do further checking 
; 66 0 4 END; 
; 664 0 
; 665 024 '++ 
: 606 8 5 If the module name was not found, we must not accept the CSP. 
; 0 ; 4 IF (.MC_PTR EQL 0) 
; 028 3 THEN 
; 029 4 BEGIN 
3 030 4 le4 
; 031 4 ! This is an error. Note that if there was previous to this 
; O36 4 ' call a valid CSP, it is not affected by this error. ALso note 
; 033 4 ! that the storage for the CSP we just found to be invalid is 
3 034 4 ! discarded by the end-of-Lline processing AFTER the SIGNAL 
3 p32 ? } produces the message. 
; 037 4 SIGNAL (PAT$_NOSUCHMODU,1,.CS_PTR); 
; 038 4 RETURN(FALSE); 
; 039 END; 
3 040 
; Shes 14 
; ek ; ! Make sure that the indicated module is in the RST so that 
3 04 : further checking can be done and because a ‘'set scope’’ implies a 
3 bee ; “SET MODULE’’ command. 
: $009 3 if NOT .MC_PTRCMC_IN_RSTJ 
3 $oe8 3 PATSSET_MODULE(.MC_PTR); ! IF THIS FAILS, THERE IS NOT RETURN FROM TH 
; 050 ; '+4 
; 3083 ! The module name is valid and in the RST. Any further checking depends 
: $028 ' on whether the given CSP is any senger than simply ‘'module’’. If this 
3 ber ' is the case, weve done all the validating we can. 
; 055 4 IF (.PATH_VEC_PTR[1) NEQ 0) 
; 056 3 THEN 
3 057 4 BEGIN 
3 058 4 '+¢ 
3 059 4 ! Further checking is RST-dependent. 
; 060 4 !—- 
; 061 4 LOCAL 
; 066 4 VAL_DESC : VALU_DESCRIPTOR, 
; 063 4 NT_PTR : REF NT_RECORD; 
; 064 4 
3 065 4 lee 
3 BOG & : For initialized modules, we can do a complete check. 
3 067 4 ' This means that we effectively do a lookup, and then 
: 068 4 !' make sure that the path leads to a symbol of type 
: ; H : ' ROUTINE. 
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ee PATSSYM_TO_VALU( .PATH_VEC_PTR, VAL_DESC)) 
BEGIN 
lee 


i Encode the pathname into a counted string and output 
the associated message. 


LOCAL MESSAGE_BUF : VECTORCTTY_OUT_WIDTH, BYTE]; 


PATSPV_10_CS(.PATH VEC PTR, MESSAGE BUF); 
SIGNALTPATS NOSYMBOL, 1, MESSAGE BUF); | No return 
RETURN (FALSE) ; Teeeeee THIS SHOULDN'T BE NEEDED 


'o¢ 

' Now we simply have to see that the valid path leads 
' to ROUTINE. First we pick up the pointer to this 
symbol's name table record. 


NT_PTR = .VAL DESC CVALU_NT_PTRI; 
LF (NOT -NT_PTRENT_TYPE] EQC DSC$K_DTYPE_RTN) 


ein 
i A valid path, but we can't accept it as a CSP 


! because perpending it to ~ symbol would 
' never result in a valid path. 


SIGNAL (PAT$_BADCSP); 
RETURN FALSE) ; 


END; 
'e+ 
The CSP we are to SET has been checked out OK. 
NEW_CSP_PTR = .PATH_VEC_PTR; 
END; 
lee 
! If we get this far, the new CSP will be accepted. First, we have to release 


! the storage we used up in accumulating the pathname elements of the old CSP, 
! if there was one. 


LF ((PATH_VEC PTR = ,PATSGL_CSP_PTR) NEQ 0) 


BEGIN 
PATSDELETE_PATH(); 
END; 


lee 
: If we were only throwing away the old vector, then we must be done. 


if (NOT .SET_SCOPE_FLAG) 
THEN 


BEGIN 
PAT$SGL_CSP_PTR = 0; 
ae TURAT TRE) 


M16 
PATINT 16-Sep- 6 VAX-11 Bliss eke V4.0-742 1 
v04-000 14- 37) $e 9}: 96: 3 DISKSVMSMASTER: CPATCH.SRCIPATINT. B32. 79 * 8) 
: i 8 1 § 144 
s 77} 1 ? i Installin ef i CSP is simply a matter of sevine away the pointer to the 
; 4h; 1 ! PATHNAME We must also zero out the pointer to the vector which 
s 1 ¢ i BU LD_PAT n wht, “to deal with these vectors, since we have effectively taken 
$ ire : Z this One away. 
; 776 135 PATSGL_CSP yt rm 
; oe } § PATH_VEC_PTR = 
; 779 138 RETURN(TRUE); 
; 780 139 1 END; 
O3FC 00000 ENTRY paresave, SCOPE, Save R2,R3,R4,R5,R6,R7,R8,- ; 2957 
59 00000000G 00 9€E 00002 MOVAB L18ss1GHn . Rg : 
58 00000000G EF 9E 00009 MOVAB AT$GL_CSP_PTR, R8 : 
57 00000000G EF 9E 00010 MOVAB PATSCL- RST"BEGN, R7 : 
56 00000000 EF 9E 00017 MOVAB PATH_VEC_PTR, R6 : 
5E FF74 CE 9E B08 56 MOVAB -140TSP)> SP : 
03 04 AC 8 0002 BLBS SET _SCOPE FLAG, 1$ 3; 3004 
0098 31 00027 BRW 9$ ~ : 
55 00 B6 DO O002A 1$: MOVL @PATH_VEC_PTR, CS_PTR : 3013 
54 000000006 EF DO 0002E MOVL PATSGC_MC-PTR, MC_PTR ; 301 
50 54 67 C1 00035 2$: ADDL3 PATS$GL_RST BEGN, Ac PTR, RO ; 301 
54 60 3C 00039 MOVZWL (RO), PTR : 
15 13 0003C BEQL PF 
50 54 67 C1 Q003E ADDL3 PATSGL_RST_BEGN, MC_PTR, RO ; 3018 
52 0c AO 9A 00042 MOVZBL 12(RO)> Re 3 
51 65 9A 00046 MOVZBL 45S- PTR) ; 3019 
51 00 OD AO 52 2D 00049 CMPCS Re, “TytRO "yo. R1, 1(CS_PTR) : 
01 AS 0004F : 
E2 12 00051 BNEQ 2$ : 
54 05 00053 3$: TSTL MC_PTR ; 3027 
0c 12 00055 BNEQ 4 : 
55 DD 00057 PUSHL CS_PTR ; 3037 
01 DD 00059 PUSHL # ; 
00608080 ee DD 00058 PUSHL #7176320 3 
E 11 00061 BRB 3 
50 54 67 (C1 B203 4$: ADDL3 PAT sgt a RST -BEGN. MC_PTR, RO : 3046 
09 03 AO 01 €E0 0006 BBS 3 
54 DD 0006C PUSHL _PT ; 3048 
00000000G_ EF 01 FB ie 4 CALLS wereeee MODULE : 
50 66 DO 00075 5$: MOVL Paty C_PTR, RO : 3055 
04 Ad OD site TSTL : 
42 13 00078 BEQL as” 3 
F8 AD 9F 0007D PUSHAB VAL_DESC ; 3071 
50 dD 00080 PUSHL 3 
00000000G_ EF 3 Fe 474 CALLS #2, PATSSYM_TO_VALU F 
1A E 3 BLBS RO, 7$ 3 
—E 0D pee PUSHL P ; 3080 
66 DD 000 ; PUSHL PATH_VEC_PTR : 
00000000G_ EF 02 FB 0009 CALLS #2, PAT$PV_TO_CS ; 


= 
1 
PATINT 16-Sep-1984 01:02:56 VAX-11 Bliss-32 V4.0-742 Page 22 
v04=000 a et 93:95:36 DISKSVMSMASTER: LPATCH.SRCIPATINT.B32:1° (35 
SE DD 00097 PUSHL SP : 3081) 
1 DD 00099 PUSHL #1 : 
006D8090 8F DD 0009B PUSHL #7176336 : 
69 3 FB OOOA) 6$: CALLS #3, LIBSSIGNAL ; 
aon 0 AG BRB : 3082 
50 F8 aD 3¢ AG 7$: MOVZWL VAL_DESC, NT_PTR : 3090 
50 6 £0 0 AA ADDL2 PATSGL_RST_BEGN, RO + 3091 
BE 8F 02 Ao 91 0 OAD CMPB (RO), #190 : 
OB 13 00082 BEQL ; 
006D8060 8F DD 00084 PUSHL #7176288 + 3099 
69 01 FB OOOBA CALLS #1, LIBSSIGNAL : 
le 11 OOBD BRB 1 : 3100) 
52 66 DO OOOBF 8$: MOVL § PATH_VEC_PTR, NEW_CSP_PTR : 106 | 
3 68 D0 b90¢8 9$: MOVL PATSGL_CSP_PTR, PATH_VEC_PTR + 3114 
05 1 b00¢ BEQL 0$ : 
FEFA CF 00 FB 000C7 CALLS #0, PATSDELETE_PATH + 3117 
04 04 AC €8 O00CC 108: BLBS SETf_SCOPE FLAG, 11 : 3122 
68 D4 90009 CLRL = PATSGL_CSP_PTR > 3125 
05 11 000D2 BRB 12$ ; 3126 
68 52 D0 00004 11$:  MOVL NEW CSP_PTR, PATSGL_CSP_PTR > 3135 
66 D4 00007 CLRL PATA_VEC_PTR : 3136 
50 01 00 00009 128: MOoVL #1, RO F 3138 
04 000D RET : 
50 D4 O00DD 138: CLRL ~— RO + 3139 
04 O00DF RET ; 


; Routine Size: 224 bytes, Routine Base: _PATSCODE + 014A 


1 
PATINT Ise 1984 01:02:56 VAX-11 Bliss-32 V4.0-742 Page 23) 
v04-000 14-Sep-19 4 12393534 DISKSVMSMASTER: LPATCH.SRCIPATINT.B32; 1° (6). 
; re 130 ’ GLOBAL ROUTINE PATSFIND_MODULE( MOD_NAME_DESC, SIGNAL_FLAG ) = 
; 784 146 1 l+4 
3 feo 145 1 ! Functional Description: 
; 786 3144 1! 
: 787 3145 1! Search the MC to see if the given module is there. 
; 788 3146 1! 
; 789 $i¢f 1 ! Formal Parameters: 
; 148 1! 
; 79) 3149 1! MOD_NAME_DESC <a string descriptor for the supposed 
“Be a. 3150 1! module name. 
; $12 1; SIGNAL _FLAG -indicator whether or not this routine should 
; 794 136 . 7 SIGNAL if the module is not found 
; 795 S155 1! rr 
; 796 3154 1! Implicit Inputs: 
2 rer siae 3 
; 798 3136 1 } none. 
: Ww 3157 1! 
; 800 3158 1°! Implicit Outputs: | 
; 801 3159 1! 
; 802 3160 1! none | 
; 803 3161 1! | 
; 804 3162 1 ! Returned Value: | 
; 805 3163 1! : 
; 806 3164 1! 0 - if the module is not found, ; 
; 807 3165 1! an MC_PTR (non-zero) to the indicated MC record, otherwise. | 
; 808 2166 Ff. 
; 809 3167 1! Side Effects: | 
; 810 3168 1! 
; ov 3169 1! none 
s Sie 3170 1 !-= 
;. $13 3171 1 
: 814 3172 2 BEGIN 
; 815 3173 2 MAP | 
; 816 3174 2 MOD_NAME_DESC : REF BLOCKL,BYTE); ! The supposed module name is 
; 817 3175 2 ' described via an SRM string descriptor. 
; 818 3176 2 
3; 319 3177 3 LOCAL 
: 820 3178 MODU_CS_NAME : VECTORCSYM_MAX_LENGTH+1, BYTE], ' COPY OF MODULE NAME FOR NOSUCHMODU ERROR M 
3. ger 3179 § MC_PTR = REF MC_RECORD; ! We chain along the MC via this temp pointe | 
; 822 3180 
; Ses 3181 e+ ; 
: 824 3182 ! Scan along the MC comparing the ber string with the module name stored 
; 825 183 ! therein. Note that we skip the first MC record because it is reserved for 
; aso H ' globals and is therefore nameless. 
e ,—/- | 
; 828 3186 MC_PTR = .PATSGL_MC_PTR; 
: 829 187 3 WHTLE ((MC_PTR =".MU_PTR CMC_NEXT]) NEQ 0) 
: 830 188 ¢ DO 
3. 83} 189 BEGIN 
; ase 190 4 IF (CHSEQL(.MC_PTRCMC_NAME_CS),MC_PTRCMC_NAME_ADDR), 
; 833 191 4 -MOD_RAME_BESCEDSC$W_LENGTHJ, -MOD_NAME_DESCCDSCSA_POINTER] )) 
: te 13 3 THEN 
; 835 193 4 BEGIN 
; 836 194 4 ++ 
; 837 195 4 ! Found. Internally in PATCH we agree that the ‘value’ of a 
; 838 3196 4 ' module string will be the RST address of its MC record. 
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; Routine Size: 92 bytes, Routine Base: _PATSCODE + 022A 


; 839 197 4 l<< H 
; 840 198 4 RETURN(.MC_PTR); 3 
: 841 199 END; 5 
; «484 200 END; 3 
; & 201 5 
> 844 $06 1+ 5 
: 845 20 If we fall out of vie above loop, then the given module name was not found. : 
> 846 spe i Therefore if a SIGNAL is allowed. then construct a COUNTED_STRING pointer and 3 
; 847 05 i pass it as the error ‘easaene argument. : 
; 848 3206 ies 3 
; 849 207 IF .SIGNAL_FLAG 3 
; 850 soe THEN 3 
3s 689) 09 BEGIN 3 
5 Boe 3210 an CS_N aed ty = .MOD_NAME ope sctpscsy LENGTH); : 
3 6855 3211 3 $MOVE~(.MODU_CS_NAMELO], AME DESCTDSCSA A_POINTER], MODU_CS_NAMEC1]); ; 
; 854 3212 3 SIGNAL (PATS -NOSUCRMODU, 1 * HODU CS_NAMECO)) ; { No réturn : 
; 855 3213 2 END; 3 
: B56 3514 3 | ; 
; 857 3215 2 RETURN (0); 3 
; Be 3216 1 END; : 
3 
007C 00000 ~ENTRY PATSFIND Po oeen’ Save R2,R3,R4,R5,R6 : 3140 | : 
56 00000000G_ EF 5 00002 MOVAB eases. RST_BEGN, R6 5 : 
5E 20 C2 00009 SUBL2 #32, SP : 5 
54 000000006 EF 00 0000¢ OVL PAT$GL_MC_PTR, MC_PTR > 3186 : 
55 04 AC DO 00013 MOVL MOD_NAME DESC, : 3191 3 
50 54 66 C1 00017 1$: ADDL3 PATSGL_RST BEGN, MC_PTR, RO ; 3187 : 
54 60 3C 00018 MOVZWL (RO), AC_PTR : 3 
17 (13 ORR IE BEQL $ § $ 
50 54 66 C1 0002 ADDL3 parece _RST_BEGN, MC_PTR, RO ; 3190 : 
51 0c AO 9A 00024 MOVZBL Leap R1~ ; 3 
04 «BC 00 OD AO 06 rH 2D Beose CMPC5 e T3iR0), #0, @MOD_NAME_DESC, @4(R5) 3 : 
Ee 12 00031 BNEQ 1$ ; 3 
50 4 p0 00033 MOVL MC_PTR, RO ; 3198 : 
04 00036 RET z $ 
1E 08 AC 3 00037 2$: BLBC Siena. FLAG, 3$ : 3207 3 
6E 04 BC 90 Ht MOVB 0 MARE DESC MODU_CS_NAME : 3210 : 
50 43 9A 0005F MOVZBL mODURC Ee : 3211 : 
01 AE 04 B5 2 28 498 4 MOVC +f 34(R5), MODU_CS_NAME+1 b é 
E DD 0004 PUSHL : 3212 3 
01 DD OO04A PUSHL 3 : 
006D8080 8F DD 0004C PUSHL #7176320 ; 3 
000000006 00 03 FB Att CALLS +3, LIBSSIGNAL : 3 
50 04 00059 3$: CLRL RO 3 351? 3 
04 0005B RET : 3216 : 
: 

| 

| 
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; 860 17 1 GLOBAL ROUTINE PATSFIND_DST : NOVALUE = | 
; 861 18 #1 
; 86 19 1 !4¢ 
; Ber y ! FUNCTIONAL DESCRIPTION: 
; 865 ¢ 1; Find out where the DST pegins and make it available for 
; 866 § 74 PATSGET_NXT_DST and PATSGET_DST_REC. 
; 867 3224 1! (or make it so that these routines return EOF if no DST exists). 
; 868 ; 7 eo Then do the same for the GST. | 
; 869 Ss = 
; 870 2? 1! Calling Sequence: 
; 871 8 1! 
: 872 . 29 PATSFIND_DST() 
; 873 3230 1! 
; 874 3231 1 ! FORMAL PARAMETERS: 
> 875 $538 1! | 
; 876 es> 1! none 

; 877 3234 1! 
; 878 3235 1 ! IMPLICIT INPUTS: 
; 879 3236 «61 | 
; 880 Seor 6Y The image header has been read and PATS$SGL_IMGHDR points to it. 
; 881 3238 1! The old image file is open and ready to read the DST and GST. 
; 882 3239 1! The variables pointing to the file are: | 
; 883 3240 1! PATS$GL_OLDFAB, AND PATSGL_OLDNAME. 

; 884 3241 1! 
; 885 $508 1 ! IMPLICIT OUTPUTS: 
; 886 3243 1! 
; 887 3244 1! none | 
; 888 3245 1! 

; 889 3246 1 ! COMPLETION CODES: 
: 890 3247 1! none 
: «891 3248 1! 

: 892 3249 1 ! SIDE EFFECTS: 

; 893 3250 1! 

; 894 Seo1 7! The notion of ‘next’ DST record is initialized 

; 895 $528 . f here so that a call to PATSGET_NXT_DST made after 
; o4] $527 : a call to this routine will fetch the first record. 
: 898 3255 1! The begin and end address of the DST are also established, 
; 899 o>. Te ie but only for the purposes of the interface routines. 

: 900 3257 1! There is no explicit requirement for this from the RST's 
; 901 See 61 viewpoint - so long as the interface can somehow 
; 308 $23 : know when the Last record has been passed on. 
: 904 sei ;: If anythin yrs wrong during the GST/DST initializations, : 

; 905 $06 2 2 (can't EXPREG, etc.), we output the corresponding message forcing 

: 906 es Ft the severity to -I-, and then continue on without the GST or DST. 

: 907 3264 1! The exceptions to this are that there must be symbol table info in 

: 908 3265 1! the header (even if what's there is simply a pointer to say that 

; 909 266 (1! there is no DST or GST). 

: 910 267 1 !-- 

3; 911 268 1 

; aig 269 BEGIN 

; 91 70 

i 914 71 BIND 

; «915 % SYM_TBL_DATA = .PATSGL_IMGHDR + PATROL |New psemeu_sYneeser 2 

; 916 27 : BLOCK (, BYTEJ, 


Bete ee Se Se Se ee Se Se Se Se Se Se ee Se SHS Se Se Se Se Se ee Se Se Se Se Se Se Se Se eae 


iF (.SYM_TBL_DATACIHSSL_DSTVBN) NEQ 0) 
THEN 


Sesce 


SIGNAL (PATS$_INVIMGHDR+MSGSK_INFO); 
SIGNAL (PAT$_NOLCL+MSG$K_INFO); 
DST_BEGIN_ADDR = 0; 
SYM_TBL_DATACIHS$L_DSTVBN) = 0; 
IHS$W-DSTBLKS) = 0; 


QS 


Wwr—CO 


SYM_TBL_DATA 


*_ 
16-Sep-1984 01:02:56 VAX=11 Bliss-32 V4.0-742 Page 26. 
13-88-1382 3:95:38 DISKSVMSMASTER: CPATCH, SRCJPATINT.B32:1> FF 
s Dir 74 EXESECNAM = UPLIT BYTE (ZASCIC ‘DST'), 
; ai8 t? GSTSECNAM = UPLIT BYTE (ZASCIC 'GST'); 
; 920 2 LITERAL 
> 921 78 GL_OVERHEAD_REC = ! GST overhead records from Linker 
: 9 é 79 SYMS_PER GLREC = 26, i Average GSTs per GST record. | 
; 9 80 START ADDRESS = 0, ! Starting address offset 
; z 2 3} END_ABDRESS = 1; ! Ending address offset 
: og8 83 LOCAL 
3 Yer 84 STATUS : BLOCKCZUPVAL, BYTE) 
; 928 Bs GLOBAL RECORD : BLOCK CA PAGE, BYTE), 
: 929 6 EXESECRAM_DESC : VECTOR g. LONG), 
; 950 87 EXEFILNAM_DESC : VECTOR (C2, LONGI, 
> 931 288 GL_SYM_COONT : VOLATILE; 
; o38 334 
; 93 90 '++ 
; 934 3291 ! Check if this .EXE file has symbols at all. There are two kinds of checks 
; 935 3538 ! which we make. First, we see if the image header is consistent. ; 
: 936 29 ! There are two checks for this = one which is always relevant, and one which 
3 HA $59¢ is relevant only if we have already determined that there will be DSTs. 
; 939 359 IF (.PATSGL_IMGHDR CIHD$W_SYMDBGOFF] EQL 0) 
: 940 3297 THEN 
3; 941 3298 BEGIN 
; 94 $805 GST_BEGIN_ADDR = 0; 
; 94 3300 ; DST BEGIN ADDR = 0; 
; 944 3301 PATSGB_SYMBOLS = FALSE; ! Indicate image has no symbols 
> 945 $308 ; SIGNAL TPAT$_NOGBL+MSG$K_INFO); 
3 946 330 SIGNAL (PAT$_NOLCL+MSGS$K_ INFO); 
: 947 $a0¢ ; RETURN; 
: 948 305 END 
> 949 3306 2 ELSE ; ‘ 
: aay tt § PATSGB_SYMBOLS = TRUE; ! Indicate image has symbols 
; 926 3309 § ++ : : 
; 0 ! Then we see if this is a simple case of there le isinatety not being a DST. 
$ 328 1 (i.e. the modules were simply not compiled with /DEBUG on). | 
; 956 : IF ((DST_BEGIN_ADDR = .SYM_TBL_DATACIHS$W_DSTBLKS)) EQL 0) 
: 957 3314 THEN 
; 958 5 BEGIN 
: 959 6 '++ 
> 960 7 i Check that the VBN of the DST is also zero. If it is not, | 
; 961 8 ' then the image header is contradictory. Therefore, inform the 
; 306 9 ! user and fix the header by setting the DST fields to zero. 
; 96 Y ! This should only be an informational message. 
3 ¢ 4 
4 & 
3 
; 8 
: 9 
; 0 
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: 974 1 ‘4 

; 975 § i Check that fhe VBN is Legal if not, then his is an inconsistent 
; 97 i header. Inform the user that it is invalid 

; 444 ¢ i _fix up the header, ignoring the ‘iymbols that “aight be there. 

; 979 § iF (.SYM_TBL_DATACIHSSL_DSTVBN] LEG 2) OR 

; 980 (SYM TBL- DATA IHS$W_ DSTBLKS] LSS 0) 

; «981 8 HEN 

; 98 9 BEGIN 

; 98 40 SIGNAL (PATS_INVIMGHDR+MSG$K INFO); 

> «984 41 SIGNAL (PATS— NOLCL+MSGSK_1 INFO); 

: 985 tg DST_BEGIN ADDR = 

; 986 4 SYM_ TBL_DATA 1HS$L. _OSTVBN] = 0; 

> 987 44 SYM~TBL_DATALIHS$W_DSTBLKS] = 0; 

: 988 345 END; 

; 989 346 

: 990 347 '44 

; 991 348 ! Check that a GST exists. If not, set an indicator. Also make a valid image 
3 4 $3¢2 header. This insures PATSWRTIMG will work correctly. 

3; 994 33a IF ((GST_BEGIN_ADDR = .SYM_TBL_DATACIHS$W_GSTRECS]) EQL 0) 

: 995 $326 THEN 

; 996 $32 BEGIN 

; 997 354 

; 998 3355 3 i ap that the VBN of the GST is also zero. If it is not, 

; 999 3356 3 i then the image header is contradictory. Therefore, latera the 
: 1000 3357 i user and fix the header by setting the GST fields to zero. 

3 1 $328 ; This should only be an informational message. 

; 1003 3360 4 IF £-S7A Te. DATACIHS$L_GSTVBN] NEQ 0) 

3 1004 3361 3 THEN 

3; 1005 $308 3 SIGNAL (PAT$ abe 4 teem INFO); 

: 1006 336 SIGNAL (PATS NOGBL +MSGSK_I NFO); 

; 1007 3364 GST_BEGIN_ADDR = 0; 

; 1008 3365 SYM_ TBL "DATA IHS$L_GSTVBN] = 0; 

> 1009 3366 SYM~TBL_DATALIHS$W_GSTRECS) = 0; 

; 1010 3367 3 END™ 

: 1011 sec8 ELSE 

: 1018 369 '++ 

3; 101 3370 ! Check that the VBN is legal. If not, then this is an inconsistent 
3: 1014 3371 2 i header. Inform the user that it is invalid and 

3 A 3358 if fix up the header, ignoring the symbols that might be there. 

: 1019 $e if t. SYM_TBL_DATACIHSS$L_GSTVBN) LEQ 2) OR 

; 1018 75 (SYM TBL “DATA IHS$W- ~GSTRECS] LSS 0) 

3; 1019 378 THEN 

: 1020 37 BEGIN 

; 1021 378 SIGNAL (PATS_INVIMGHDR+MSGSK INFO); 

3 1056 379 SIGNAL ( ont BR DOeL oASGSK INFO); 

3 10 380 GST_BEGI 

: 1024 381 SYM_ TBL mae Fasse “GSTVBN] = 0; 

> 1025 382 SYM~TBL~DATALIHS$W-GSTRECS) = 0; 

: 1966 4 END; 

3; 10 4 

; 1028 aH '+¢ ; . i 
: 106) $359 Don't try to create and map the DST if there is not one in the .EXE file to map in. 
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16-Sep-1984 01:02:56 VAX-11 Bliss- 
1023821 38¢ 93:98:32 DISKSVMSMASTER: 


IF (.DST_BEGIN_ADDR NEQ 0) 
THEN 


peer 
PATS$SGL_ISVADDR May! ppoeess2 = 300; se 


EXESECNAM_DESC (1 
EXEFILNAM_DESC (0 
EXEFILNAM_DESC (1 


—e 


D APORESS = 20 


EXESECNAM; 
-PATS$GL_OLDNBKCNAM$B_RSLJ; 
PATSGB_OLDNAME; 


IF NOT (STATUS = LIBS_CREMAPSEC (PATSGL_ISVADDR 


jolejolejalelelelelalelela! 


SSKSSSSSSSSSSS2EL2 
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SSF 


SSS 


M_TBL_BATA 


Pp 
L 
SYM_TBL_ IH 
»SYMZTBL-DATA CIH 


E 
XE 
XEF ILNAM_DESC 
SY 
SY 


ss. = & & © 


BEGIN 
l++ 


! Unconditionally make the severity level informational so 
! that the message will be produced with no side effects. 
STATUSCSTSSV_SEVERITY] = SYSS$K_INFO; 

STATUSCSTSSV_SEVERITY] = 3; 

DST_BEGIN_ADBR =0; 

SIGNAL (PAT$_SYSERROR-MSG$K_FATAL+MSGSK_INFO, 0, .STATUS); 
SIGNAL (STATUS) ; 


'44¢ 
! Now load up the addresses of the beginning 
! and end of the DST. 


BEGIN 

DST_BEGIN_ADDR = .PATSGL_ISVADDR CSTART_ADDRESS); 
DST-END_ABDR = .PATSGL_ISVADDR CEND_ADDRESSJ; 
DST_NEXT_ADDR = .DST_BEGIN_ADDR; 


' For no DSTs. 


! Now map in the GST in the same way we did the DST. Don't try to create and 
! map the GST if there is not one in the .exe file to map in. 


if (.GST_BEGIN_ADDR NEQ G) 
THEN 


OOoCoooooocoooooo 
SANS SN 
WONOULWN “OO 


Arun—o 


GST_REC_PTR : REF VECTORC WORD); 


i Find the Last mapped address used and compute the addresses into 


i which the GST wi 
PATSGL_ISVADDRLSTART_ADDRESS) = 200; 


4 
4 
4 
4 
4 
4 
4 
4 
3 
4 
4 
4 
4 
4 
6! 
4 
4 
4 
4 
& 
3 
3 
4 
4 
4 
4 
3 
' 
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rst available addresses in PO space. 


' Set the address vectors to point to the 
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THEN 


ELSE 


VAX=-11 Bliss=-32 V4.0-7 


1b-sep-19 4 93:05:36 


14-Sep-1984 12: 


PATS$SGL_ISVADDRCEND_ADDRESS] = 200; ! first available addresses in PO space. 
EXESECRAM_DESC ([0)"= 3; 
EXESECNAM-DESC [1] = GSTSECNAN; 
EXEFILNAM_DESC [0] = .PATSGL_OLDNBKCNAMSB_RSLJ; 
EXEFILNAM_DESC (C1) = PATSGB_OLDNAME; 
IF NOT (STATUS = LIBS_CREMAPSEC (PATS$GL_ISVADDR 
, PATSGC_ISVADDR 
SECSM_EXPREG 
XESECNAM_DESC 


EXEFILNAM DESC 


-SYM_TBL_BATA CIHS$W_GSTRECS) 
IHS$L 


“~s © © © & © 


SYALTBL_DATA “GSTVBNJ 
oe 
i Unconditionally make the severity level informational so 
' that the message will be produced with no side effects. 
STATUSCSTSS$V_SEVERITY] = $¥S$K_INFO; 
STATUSCSTS$V_SEVERITY] = 3; 
GST_BEGIN_ADBR =0; 
GSR_BEGIN_ADDR =0; 
SIGNAL (PAT$_SYSERROR-MSGSK_FATAL+MSGSK_INFO, 0, .STATUS); 
SIGNAL(.STATOS); 
ND 
BEGIN 
le4¢ 


! Now skip the first two records because they 

' are module header and module sub-header, respectively. 
' NOTE: this builds in the knowledge of how these 
usually-RMS records are formatted. 


GST_REC_PTR = .PATSGL_ISVADDRCSTART_ADDRESS]; 

lee 

! Get to the next record by adding the rounded-up 

! record byte count to the previous peginaing 

! virtual address, then adding on 2 because the count 
field is 2 bytes long. 


GST_REC_PTR = .GST_REC_PTR + 2 + ((.GST_REC_PTRLO] +1)/2)*2; 


‘+4 
Now skip the sub-module header. 
GST_REC_PTR = ,GST_REC_PTR + 2 + ((.GST_REC_PTR(O] +1)/2)*2; 


lee 
! And this is the address we wanted. Both the first, and, at this 
point, the ‘next’ records, start at this address. 


GSR_BEGIN_ADDR = .GST_REC PTR; 
GSR-NEXT_ADDR = .GSR_BEGIR_ADOR; 


0-742 Page 
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v04-000 DISKSVMSMASTER: CPATCH. SRCJPATINT. B32, 79 ) 
3 1145 208 4 

3 1369 28 4 '++ 

3 114 504 4 ' Tell the inner mechanism how amy GST records there will be. | 
: 1148 505 4 ! This number is the number that the yeimer gave us, ¥, 
3 1149 208 4 ' because of the 2 records we just ski peed over, PLUS the | 
: 1129 4 ? module-end record at the end of the G | 
: 1188 509 4 POSITION_GST( -SYM_TBL_DATACIHS$W_GSTRECS] - 3 ); 
5 Ve 510 3 END; 

; V2 21) ; END; ' For no GSTs. 

: 1136 3318 PATSINIT_RST (.GL_SYM_COUNT); 

s 11 514 1 END; 


-PSECT _PATSPLIT,NOWRT ,NOEXE ,0 


54 53 44 03 Q0000 P.AAA: .ASCII <3>\DST\ : 3 

54 53 47 03 00004 P.AAB: . ASCII <3>\GST\ : ; 
EXESECNAM= P.AAA : 

GSTSECNAM= P.AAB . 

.PSECT _PATSCODE,NOWRT,2 ; 

OFFC 00000 ~ENTRY PaAnee {0ST Save R2,R3,R4,R5,R6,R7,R8,R9,-; 3217 3 

5B 000000006 EF 9E 00002 MOVAB L 1B CREMAPSEC, R11 : ; 
5a 000000006 EF 9E 00009 MOVAB PATS$GB_OLDNAME. R10 ; ; 
59 000000006 EF 9€ 00010 MOVAB PATS$GL-OLDNBK+5, R9 ; : 
58 000000006 EF 9E 00017 MOVAB PATS$GB~SYMBOLS, R8 : : 
57 000000006 EF 9E OOO1E MOVAB PATS$GL~ISVADDR, R7 : F 
56 000000006 60 9E 90025 MOVAB LIBSSIGNAL, R6 : ; 
55 00000000' EF 9E 000 g MOVAB DST_BEGIN_ADDR, RS ; ; 
3E FDEC CE 4 0003 MOVAB -532(SP), SP ; 3 
50 000000006 _ EF p 0038 OVL  PATSGL_IMGHDR, RO : 3272 ; 
51 04 AO 3C 0003F MOVZ2WL 4(RO),~R1 ; : 
52 51 50 C1 00043 ADDL3 RO, RI, R2 ; 3 
04 AO B65 00047 TSTW  4(RO) : 3296 : 

1A 12 0004A BNEQ =‘'1$ ; : 

14 AS D4 0004C CLRL  GST_BEGIN_ADDR : 3299 3 

65 04 0004 CLRL DST BEGIN7ADDR ; ; 00 3 

68 04 00051 CLRL  PATSGB_ SYMBOLS : 3301 ; 

006D81D3 BF ODD 0053 PUSHL #7176659 : 3302 : 

66 01 FB 0005 CALLS #1 LIBSSIGNAL ; ; 
006081(B 8F dD 0005¢ PUSHL #7176651 : 3303 : 

66 01 FB 0068 CALLS #1, LIBSSIGNAL F : 
04 0006 RET : 3 98 : 

68 01 b0 0066 1$: MOVL #1, PATSGB_SYMBOLS : 3307 : 
65 08 A2 906 MOV2WL 8(R2), DST-BEGIN_ADDR > 3313 : 
06 12 00060 BNEQ  2$ : : 

62 D O06 TSTL  (R2) : 3322 : 

BF tf O0074 pee £3325 : 

02 ¥3 D1 ie 2$ CMPL = (R2), #2 : 3392 : 


| 


K 1 
PATINT 16-Sep-1984 01:02: VAX=11 BLiss-32_V4.0-742 p 1 
04-000 1eree=18Re 93:88:8e We GhAStERscbaton chcaparint.a320%* «os 


eae 
19 14 0078 BGTR 5$ ; : 
00608243 8F ODD 0 7A 3$: PUSHL #7176771 + 3340 : 
4 1 FB 000 CALLS Hi LIBSSIGNAL : ; 
006D81CB 8F DD 00083 4$ PUSHL #7176651 + 3341 ; 
‘ 1 FB 00089 CALLS #1, LIBS$SIGNAL : : 
65 D4 0008C CLRL DST_BEGIN_ADDR + 334 ; 
62 04 0 CLRL =. (RJ + 334 ; 
08 A 84 9 CLRW (Re) + 3344 : 
16 AS OA A2 3C 00093 5$: MOVZWL 10(R2), GST_BEGIN_ADDR + 3351 : 
OA 12 00098 BNEQ 6$ : : 
54 04 A2 9E 0009A MOVAB 4(R2), R4 : 3360 : 
64 D 009 TSTL  (R4) : : 
B 12 000A BNEQ 7$ : : 
if 11 000A BRB By + 3363 ; 
54 04 A2 9E OOOAG 68: MOVAB 4(R2), R4 : 3374 ; 
02 64 D1 000A8 CMPL (R4), #2 : : 
1A 14 000AB BGTR 9$ : : 
006D8243 8F DD OOOAD 7$: PUSHL #7176771 : 3378 : 
66 01 FB 000B3 CALLS #1, LIB$SIGNAL : : 
006D81D3 BF «ODD «00086 8$: PUSHL #7176659 + 3379 ; 
66 01 FB 000BC CALLS #1, LIBSSIGNAL : ; 
16 AS D4 000BF CLRL  GST_BEGIN_ADDR : 3380 ; 
64 04 000C2 CLRL = (RGJ : 3381 : 
OA A2 B4 0004 CLRW =: 10(R2) : 3382 ; 
65 D5 000C7 9$: TSTL  DST_BEGIN_ADDR : 33388 ; 
60 13 000C9 EQL =s«d1:'1$ : ; 
67 C8 8F 9A 000CB MOVZBL #200, PATSGL_ISVADDR : 91 ; 
04 AT C8 BF 9A OO0CF MOV ZBL #200 PAT$GL~ISVADDR+4 ; 5 F 
OC AE 03 DO 00004 OVL #3, EXESECNAM DESC : 339 ; 
10 AE 00000000" EF 9E 00008 OVAB EXESECNAM, EXESECNAM_DESC+4 : 3394 : 
04 AE 69 9A 000E0 MOVZBL PATSGL_OLONBK+3, EXEFILNAM DESC : 3395 ; 
08 AE 6A 9E 000E4 OVAB  PATSGB-~OLDNAME, EXEFILNAM_DESC+4 : 3396 F 
62 DD 000E8 PUSHL  (R2) : 3405 ; 
7E 08 A2 3C OOOEA MOVZWL 8(R2), -(SP) : 3404 ; 
OC AE OF OOOEE PUSHAB EXEFILNAM_DESC : 3398 : 
7E D4 OOOF1 CLRL = = (SP) : ; 
1¢ AE 9F OOOF3 PUSHAB EXE SE CNAM_DESC : ; 
00020000 &8F DD 000F6 PUSHL #131072 : : 
57 DD OOOFC PUSHL R7 ; F 
57 DD OOOFE PUSHL 7 : ; 
6B 08 FB 90199 CALLS #8, LIBS_CREMAPSEC : ; 
53 20 DO 0010 OVL RO, STATOS : : 
1B 5 3 0106 BLBS STATUS, 10$ ; F 
53 03 00 03 F 0199 INSV #3, #0. #3, STATUS : 3413 F 
65 D4 001 CLRL  DSf_BEGIN_ADDR : 3414 : 
33 DD oor PUSHL STATUS > 3415 ; 
E D4 0011 CLRL.  =(SP) ; : 
000000006 8F DD 00114 PUSHL #PAT$_SYSERROR-1 ; : 
66 03 FB OO11A CALLS #3, LIBSSIGNAL ; ; 
53 DD 00110 PUSHL STATUS + 3416 : 
66 o1 FB Oli CALLS #1, LIBSSIGNAL : 3 
7 11 00122 BRB : 3398 ; 
65 67 7D 00124 10$: MOVQ  PATSGL_ISVADDR, DST_BEGIN ADDR : 3424 : 
08 AS 63 DO 00127 MOVL  DST_BEGIN_ADDR. DST“NEXT_ADDR + 3426 : 
16 AS 05 00128 11$:  TSTL T~BEGIN-ADDR > 3434 : 
38 13 001 F EQL ; ; 
67 c8 BF 9A 001 MOVZBL #200, PATSGL_ISVADDR : a : 
| 


| 
PATINT 16- Sep-1984 01:02: VAX=11 SLiss-32 V4.0-742 2 
v04-000 1 8ep-1984 93:98:30 DISKSVMSMASTER: CPATCH.SRCJPATINT. B3204 oe 36 
04 A7 C8 BF 9A 00134 MOVZBL #200 PATSGL ISVADDR+4 5 3445 ; 
£ AE 3 p0 139 MOVL DESC + 344 : 
10 AE 00000000 EE E 001 b MOVAB GSTSECNAMS. EXESECNAM DESC +4 + 344 ; 
04 AE 9 9A 0014 MOVZBL PATSGL_OLDNBK+3, EXEFILNAM_ DESC : 3448 F 
08 AE 6A 9E 9149 MQVAB  PATSGB-OLDNAME, EXEFILNAM_DESC+4 + 3449 : 
64 bd 14D PUSHL  (R4) : 3458 : 
7E OA A2 3C O14 MOVZWL 10(R2), =(SP) + 3457 : 
0c AE OF 133 PUSHAB EXEF ILNAM_DESC 451 ; 
7E D4 001 6 CLRL = (SP) : ; 
1¢ «AE. O9F 0015 PUSHAB EXE SE CNAM_DESC : ; 
000200060 8F DD 00158 PUSHL #131072 : ; 
7 DD 161 PUSHL R7 : : 
7 DD 0016 PUSHL 7 : ; 
68 08 FB 00165 CALLS #8, LIB$_CREMAPSEC : ; 
5 50 DO 00168 OVL RO, STATO ; : 
iF 53 £8 0016B BLBS STATUS, 13$ : : 
53 03 00 03 FO OO16E INSV #3, #0. #3, STATUS + 3467 ; 
14 AS D4 0017 CLRL  GST_BEGIN_ADDR : 3468 : 
0c A5 D4 00176 CLRL  GSR7BEGIN-ADDR + 3469 ; 
53 DD 00179 PUSHL STATUS : 3470 ; 
7E D4 0017B CLRL.  =(SP) : : 
00000000G 8F 0D 0017D PUSHL #PAT$_SYSERROR-1 : é 
66 03 FB 00183 CALLS #3, LIBS$SIGNAL : ; 
53 DD 00186 PUSHL STATUS + 3471 : 
66 01 FB 00188 CALLS #1, LIBSSIGNAL ; ; 
34 1100188 12$: BRB 4 + 3451 ; 
51 67 DO 0018D 13$:  MOVL = PATSGL_ISVADDR, GST_REC_PTR > 3481 : 
50 61 3C 00190 MOVZWL (GST_REC_PTR), RO + 3489 : 
50 D6 00193 INCL. RO : ; 
50 02 c6 00195 DIVL2 #2, RO : : 
51 02 A140 3E 00198 MOVAW  2(GST_REC PrR)CROI, GST_REC_PTR : : 
50 61 3¢ 0019D MOVZWL (GST_REC_PTR + 3494 F 
50 D6 001A0 INCL RO : ; 
50 02 c6 Qing DIVL2 #2, RO : : 
51 02 A140 3E OO1A MOVAW  2(G6ST_REC PTR) {ROI GST_REC_PTR : ; 
oc AS 51 DO OO1AA OVL  GST_REC_PTR, GSR_BEGIN ADDR™ : 3500 : 
10 AS oc AS v0 OO1AE OVL GSR -BEGIN A ABDR GSR_NERT_ADDR : 3501 ; 
7E OA Ag C 001B3 MOV ZWL 19¢R2) -TSP) : 3509 ; 
6E 03 C2 00187 UBL2 #3, (SP) ; : 
00000000v_ EF 01 FB 001BA CALLS #1, POSITION_GST : ; 
6E DD OO1C1 14$:  PUSHL  GL’SYM_ COU : 3513 ; 
000000006 EF 01 FB 001C3 CALLS #17 PATSINIT_RST : : 
04 OO1CA RET : 3514 : 
; Routine Size: 459 bytes, Routine Base: _PATSCODE + 0286 ; 
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GLOBAL ROUTINE PATSGET_DST_REC ( REC_ID ) = 


'e¢ 


FUNCTIONAL DESCRIPTION: 

Make the indicated DST record available. 

! FORMAL PARAMETERS: 

i REC_ID = The ID of the record we are to fetch. 

: This ID must be one which was previously returned 
by a call to PATSGET_NXT_DST. 

IMPLICIT INPUTS: 

NONE 

; IMPLICIT OUTPUTS: 

NONE 

COMPLETION CODES: 

i 
i 
i 
i 
i 
i 
i 
saa 


0, if the indicated record does not exist, 
the address of where is can now be referenced, otherwise. 


SIDE EFFECTS: 
The DST record is made available. 


WP O OONAULSWN “ODO ONAULSWN OW” 3 


oon 


BEGIN 
BIND 


QPVPVPVPVDUSULUSV LULU SUSUSISUSIS ISIS 
FREER EE PWN AID IPOPONIPNINININI NI 2 OO 


DST_RECRD = .REC_ID : DST_RECORD; 


'e¢ 
! If there is no DST, simply return as though we were asked to read one 
past the last one. (The interface's notion of EOF). 


If (.DST_BEGIN_ADDR EQL 0) 
RETURN(O); 


ek ek kh tt ek kk a a dd a 
Fon= CONOULS WR — 


lee 

! The record ID_is the same as the virtual address at which it can be 

! referenced. The next record, then, is simply the one which is virtually 
contiguous to this one, exceptin for the case of the last record. 

i 

i 


SSeess = 
wu 


SELES 


Here we are lenient - we say that the DST ended OK if one asks for a 
record which is past the end marker, OR, if the count field 

for a supposed ‘next’ record is 0. 

IF (.REC_ID EQL .DST_END_ADDR +1) 


RETURN(0); 
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3; Routine Size: 
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7 'e4 
Hf iN Now that it is safe, check for O-length records. s 
75 if (. DST_RECRD CDOSTR_SIZE] EQL 0) 

£6 THEN 

a4 RETURN(O); 

79 '+4 
: Then check that the iD is valid. 
2 ¢ 1 (REC. ID LSSA .dst_begin_addr) OR (.REC_ID GTRA .dst_end_addr) 
: : BEGIN 
5 $ "This should not happen - we check and report 
oer i _errors here only to help us while debugging. 
589 SIGNAL (PAT$_INVDSTREC); ! Severe error 
590 RETURN(O); 
298 RETURN( .REC_ID ); 
594 1 END; 


000c 00000 ENTRY PATSGET _DST_REC, Save R2,R3 
53 00000000' EF 9E 00002 MOVAB DST_END-ADDR, R$ 
52 04 AC DO 00009 MOVL RECTID,~ 
51 FC A3 DO 0000D MOVL DST “BEGIN. ADDR, R1 
2A 13 00011 BEQL 3$~ 
50 63 01 Ci 00013 ADDL3 #1, DST_END_ADDR, RO 
50 52 D1 00017 CMPL = R2,, RO 
21 13 OOO1A BEQL 3$§ 
62 95 0001C TSTB —-_ (R2) 
1D 13 OOO1E BEQL 3$ 
51 32 D1 00 0 CMPL = R2, RI 
2 1F 00023 BLSSU 1$ 
63 2 D1 00025 CMPL  R2, DST_END_ADDR 
OF 18 00028 BLEGU 2$ 
006D80E2 8F DD OO02A 18: PUSHL #7176418 
000000006 00 o1 FB 0 9 CALLS #1, LIBS$SIGNAL 
4 11 BRB 3$ 
50 52 D0 00039 28: MOVL 2, RO 
04 0003C¢ RET 
50 04 00030 3$: CLRL =. RO 
04 0003F RET 


64 bytes, Routine Base: _PATSCODE + 0451 
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: COMPLETION CODES: 


3; 1 re 28 GLOBAL ROUTINE PATSPOSITON_DST ( REC_ID ) = 

4 59 14+ . 
o 22 FUNCTIONAL DESCRIPTION: 
45 60 Make the indicated DST record available in such 
46 60 a way that PATSGET_NXT_DST's idea of ‘next’ is 
ref rt defined to be the one Sitter” this routine fetches. 
rs o8 ' FORMAL PARAMETERS: 
51 60 REC_ID - im ID of the record we are to fetch. 
26 60 This ID must be one which was previeusty returned 
5 60 by a call to PATSGET_NXT_DST. 
54 360 
55 361 IMPLICIT INPUTS: 
56 361 
57 361 NONE 
58 3! 
89 61 
60 361 

361 NONE 

361 

3 

3 

3 


if the indicated record does not exist, 
the address of where is can now be referenced, otherwise. 


SIDE EFFECTS: 
The DST record is made available. 


The ‘next’ DST record is henceforth defined to 
be the one after the one fetched by this call. 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
IMPLICIT OUTPUTS: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
Awe 
BEGIN 


LOCAL 
REC_ADDR : REF DST_RECORD; 


ee 
i PATS$GET _DST_REC does most of the work - 
_ we just include the above-described side effect. 


iF CCREC. ADDR = PATSGET_DST_REC( .REC_ID )) EQL O ) 
RETURN(O); 
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lee 
- RE-initialize INT's notion of ‘next’ DST record. 


DST NEXT_ADDR = .REC_ADDR + .REC_ADDR COSTR_SIZE] +1; 
es TREC_LADDR ); 
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FORMAL PARAMETERS: 


IMPLICIT INPUTS: 


IMPLICIT OUTPUTS: 


ROUTINE VALUE: 


SIDE EFFECTS: 
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ROUTINE POSITION_GST ( GST_REC_COUNT ) = 


| 
14+ | 
i FUNCTIONAL DESCRIPTION: 


This routine, if called with a positive value initializes its OWN 
storage to remember the number of RMS-type records in the GST. 

If it is called with a negative or zero value, it returns the address 
of the next RMS-type record in the GST. A negative value also causes 
the pointers to be positioned at the start of the GST. 


GST_REC_COUNT = The number of RMS records in the GST. 
(negative value) re-position to start and return 
address of first GLOBAL. 
(zero) return address of the next GLOBAL. 


GSR_BEGIN_ADDR = Holds the starting address of the GST. 
If the value is not GTR 0 or 1, then the GST 
has not been mapped in so this routine returns 0. 


GSR_NEXT_ADDR = Holds the address of the next RMS record in the GST 
or the GST was not mapped in. 


0 - If there are no more records in the GST. 
non-zero - The address of the next GST RMS record. 


The next GST record can now be accessed, and an OWN pointer to the next 
one is maintained. The number of GST records yet to go is also updated 
so that the end of the GST can be detected. 


TOTAL_RECORDS, 
RECORDS_LEFT; 


BLOCK_ADDR; 


i If there is no mapped GST, then return 0, no atter why this routine 
was called. 


IF (NOT .GSR_BEGIN_ADDR GTRA 1) 
THEN 


vO 


——— 
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PATINT 1-se 1984 01:02:56 VAX=11 Bliss-32 V4.0-742 8 
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.PSECT _PATSOWN,NOEXE,2 
00024 TOTAL_RECORDS: 
00028 RECORDS_LEFT: 

-BLKB 


.PSECT _PATSCODE,NOWRT,2 
000C 00000 POSITION_GST: 
WORD 


: } 2 708 RETURN(O); 
3: 1 2? 709 if (.GST_REC_COUNT GTR 0) 
; 1356 710 THEN 
: 1357 711 BEGIN | 
; 1358 ie TOTAL_RECORDS = .GST_REC_COUNT; 
: 1359 71 RETURN (0); | 
; 1360 714 5 
: 1361 715 
: 1366 716 if (.GST_REC_COUNT NEQ 0) 
; 136 717 THEN 
3 139¢ 718 BEGIN 
; 1365 719 GSR_NEXT_ADDR = .GSR_BEGIN_ADDR; | 
3; 1366 720 RECORDS_CEFT = .TOTAL_RECORDS; 
: 1367 721 END; 
: 1368 7 ; 
: 1369 7 14+ 
3; 1370 724 i Stop the following from tes if some caller ignores the end condition and 
; 1323 tg? ! effectively causes us to ‘run off the end’ of the mapped GST. 
; 1378 3727 $ iF iF (NOT .RECORDS LEFT GEQ 1) 
3: 1374 3728 THE 
: 1375 3729 RETURN(0O); 
: 1376 3730 
; 1377 373) 'e+ 
: 1378 tg i Pick up the address of the current record, and update the pointer to the 
; 1379 373 ' subsequent one. 
: 1380 3734 l—= 
> 1381 3735 2 BLOCK ADDR = .GSRNEXT ADDR + 
; 1382 3736 GSR_NEXT_ADDR .GSR xin pees + + 2 + ((.GSR_NEXT_ADDR(OJ +1)/2)*2; 
; 1383 3737 RECORDS _CEFT = REC 7s 
3; 1384 3738 As gay st BLOCK_ A DR 
; 1385 3739 1 
| 
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. Save ; 3650 

53 00000000" EF 9E 000 MOVAB GSR *wexte AooR R3 ; 

01 FC «AS D1 000 CMPL GSRe “BEGIN_ADDR, #1 > 3705 | 

0D BLEQU 3$ ; 

50 04 OV GST. REC_COUNT, RO ; 3709 | 

A3 0 RO, TOTAL_RECORDS ; ate 
1 R 38 : 371 

30 $ : 3716) 


On 
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i GLOBAL ROUTINE PATSGET_NXT_DST ( REC_ID_PTR ) = 
89 14+ 
ay ' FUNCTIONAL DESCRIPTION: 
9 Make the next DST record available, 
9 and return both a pointer to where it 
94 can now be referenced, as well as an ID | 
3? for it so that we can ask for it later. 
44 FORMAL PARAMETERS: | 
99 REC_ID_PTR = the address of where this routine will 


stuff the ID it wants subsequent calls 
to PATSGET_DST_REC to use to refer 
to the record Fetched by this call. 


| 
IMPLICIT INPUTS: | 
| 


SAPALLS 


To be defined. 
(whatever context these routines work from). 


IMPLICIT OUTPUTS: 


ooo 
Coon 


none 
COMPLETION CODES: 


SSNS SSS NNN SS 
PDEA DAMA PPLE 


0, if the indicated record does not exist, 
the address of where is can now be referenced, otherwise. 


~ 
NOOO 
OOWONAUE WN O OONOAUE WR OOONOUE WO 


FP oY ot ot nt at at et ot et te et ke kkk et kt et 
hon MONON 2 
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ee ee Leet 
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0 
4 
5 
$ 
: 46 SIDE EFFECTS: 

20 77 The OST record after the last one fetched is made available. 
1 774 If no record has yet been fetched, the first record in | 
¢ 775 the DST is made available. 

776 
4 777 -- 
5 778 
6 779 BEGIN 
7 780 
8 781 3 WAP | 
9 78 REC_ID_PTR : REF VECTORC,LONG); | 
1B, 5 tee | 

432 785 ! Since for us record IDs are the same as their virtual addresses, we can get 
433 786 ' the next one the same way we can get ANY one. The only detail to fill in is 
ry yer : passing back the ID for this next one. | 
436 789 2 RETURN(REC_ID_PTRLO) = PATSPOSITON_DST( .DST_NEXT_ADDR )); 
437 790 END; 


0000 00000 -ENTRY PATSGET_NXT_DST, Save nothing ; 3740 


H 2 
PATINT 16-Sep-1984 01:02: VAX-11 Bliss-32 V4.0-742 P 41 
v04-000 12780071382 93:98:38 DISKSVMSMASTER: CPATCH.SRCIPATINT.832;1> (11) | 
00000000" €F oD 2 PUSHL  DST_NEXT_ADDR ; 3789. 
91 AF 1 FB CALLS #1, ~PATSPOSITON_DST : | 
046 BC 0 2 c MOVL RO, @REC_ID_PTR : | 
4 0001 RET + 3790. 


| 
; Routine Size: 17 bytes, Routine Base: _PATSCODE + O4F4 


eee ! 


42. 
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14-Sep-1984 
GLOBAL ROUTINE PATSGET_NXT_GST (ACCESS_FLAG) = 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER 


lee 
' Functional description: 


This routine returns the address of a fixed length record that 
contains a global symbol name and its associated value. This 
routine expects to be called repeatedly until each global symbol 
has been returned to the caller. 


Before this routine is ever called, the location of the GST in 
the image file is found ne it is mapped into PATCH's image. 

The address of this buffer is held in the OWN variable GST_BEGIN_ADDR. 
This routine analyzes the GST record, and moves through the buffer, 
returning the buffer address of each global symbol entry as it is seen. 
When the buffer is exhausted, this routine reads in the next GST record. 
It halts at end of file and returns a value of zero to the caller. 


This routine keeps the variable GST_BEGIN_ADDR up to date. 


The format of one of these concatenated records is a single 
leading byte containing the value 1, indicating that the record 
is indeed a GSD record. The variable GST_BEGIN_ADDR addresses 
the byte following this leading byte. 


Each entry in the record has a fixed number of overhead 

bytes followed by a symbol name that is a variable number of 

aytes, The entries we are interc:ted in processing are the 

obal symbol definitions, entry point Syape) and mask 

efinitions, and procedure definitions with formal ay a descriptions. 
The other defined type, PSECT definition, is noted only because it ‘ 
must be successfully passed over. The format of each of these types is 
illustrated below: 


‘Co Cd Cd Cd OD OD C9 Od Od Od Cd Cd Gd Cd CD Cd CO Cd OD Cd C9 CD Co 
OOWONAOMVUESWN —$O OONOU SW ODOONO 


SINISE AAA AAAAAA MMIII & & EE 
IIARIPOPININPININININIDN 2 2 SO OS OOO 


co 00 CD 


Fe ak ae ee ee eet al ta ake a a al ke ke ek ek ek ek ek 
Re eee SSS eee eS SSS 
ek ee ee dd td 


ee ee ce me ee ee ec me em ek ek ed ed ed ed dO dd dd 
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0 ! GSD type 1 ! 
th 1 ! data type ! ignored for now 
Hy ¢ ‘ flag ‘ bit 1 set means that this is 
te bytes ! a definition. ignore bit 0. 
: $38 4 ! psect index ! ignored. 
4 $35 5 : : 
: +4 } value } 4 bytes 
é 841 peoneesaneestomnaete 
G aes 9 ! ' 
4 7 : symbol ’ stock counted character 
Z Hr name string. 
4 Bag eeceseescsocesess 
4 84 


| 
| 
| 
| 
| 
| 
Global symbol definition: | 
| 
| 
J 


7 
2 | 
PATINT 1b-se -1984 01:02: VAX-11 Bliss-32 V4.0-742 Page 43 
v04-000 1 ~8 60-19 4 93:98:38 DISKSVMSMASTER:CPATCH.SRCIPATINT.B32:1> af 
> 1496 48 1! The entry point symbol and mask definition entry is identical to | 
; 1497 49 1! the global symbol ger ini tien illustrated above, with the 
; 1498 29 1} addition of a two byte field for the procedure's register save 
3 1499 851 1! mask. This two byte field is located after the symbol value 
‘ 1280 o26 ! } field (which is an entry point address). 
: 1508 B55 1 0 t GSD type 2 ! | 
; 1305 63) ! 1 ! datatype ! ignored for now 
F 1209 889 1/ : flag not relevant for 
‘ 1208 oe i } ! bytes ! entry point def. 
; 1310 86 4 ! psect index ! ignored 
; 1318 864 1 | 
: 13h7 $807 : 5 value } 4 bytes 
; 1516 3868 1 ! 9 ! register ! ignored, 
; at 4 $69? : 10 ! save mask ! 2 bytes 
: 1519 3871 1! 1 
; 1520 1h 1! ' symbol : stock counted character 
; 136) $802 : } name string 
: 1524 3876 1! 
3; 1525 3877 1! The procedure definition with formal argument descriptions is 
3; 1526 3878 1! identical to the entry point with mask definition above, save 
3 1527 3879 1! that it has some additional fields. There is a minimum number 
: 1528 3880 1! of arguments byte and a maximum number of arguments byte. These 
$ 1368 3881 1! are followed by a formal argument description for each possible 
; 15350 $e58 1! argument (i.e., the maximum number). The formal argument Soest tpt tone 
gs 935) 885 1! consist of an argument value control i he and a remaining count byte. 
: 1336 tt 1! The remaining count byte tells the number of bytes in the detailed 
3 1337 tH ; } argument description (from 0 to 255). 
: 1535 3859 i 
; 1336 $en6 ! 0 ! GSD type 3 ! 
: 1338 3890 1 ! data type ! ignored for now 
; 1540 892 1 i 2 flag bit 1 set means that this is 
: 136) S27 ! } ! bytes : a definition. ignore bit 0. 
: 1348 899 4 ! psect index ! ignored 
> 1545 Bo? | | ] ! 
; 1366 343 ' } 5 } value 4 bytes 
: 1548 300 1 / eceeeccccecccece - 
; 1549 901 1! 9 ! register : ignored, 
z 1320 O08 i : 10 ! save mask ! 2 bytes 
> 1552 904 1! 11 
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THEN 
BEGIN 
IF (CGST_BEGIN.ADDR = POSITION GST(-1)) EQL 0) 
GST_BEGIN_ADDR = X%X'FFFFFFFF'; 
RETURN(O) ; 


! See whether the current buffer address is beyond the 

! end of the Last GST record we looked at. Note that we 

! rounded up GSR_NEXT_ADDR when calculating where the next 

! GST record will begin. Therefore we must temporarily round 
! it down again when comparing it with GST_BEGIN_ADDR since it 
may point to the last unused byte in a GST record. 


REPEAT 
GET_RECORD: 
“ 
} First check that there is a GST in this image. 
if (.GST_BEGIN_ADDR EQL 0) 
RETURN(0O); 
IF _(-GST_BEGIN_ADDR GEQA .GSR_NEXT_ADDR=1) 
BEGIN 
e¢ 


' Record was finished. Check that there are more records. 
If so, then get another record. 


IF ((GST_BEGIN_ADDR = POSITION_GST(O)) EQL 0) 


RETURN(O) 

ELSE 
ae 
! If the next record is a GST record, then initialize 
' the variable GST_BEGIN_ADDR to point to the first 
global symbol definition block in this record. 


LOCAL 
BUFFER_ADDRESS : REF VECTOR C, BYTE); 


BUFFER ADDRESS =_.GST BEGIN ADDR: 
IF .BUFFER_ADDRESS GST_RECORD_TYPE] EQL GST_TYPE 


GST_BEGIN_ADDR = .GST_BEGIN_ADDR + 1 
BEGIN 

lee 

! This record is not a GST record. 

' Go on to the next. 


GST_BEGIN_ADDR = XX"FFFFFFFF’; | 


ELSE 
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; 1724 407 LEAVE GET_RECORD; ; 
H END; : 
1725 4 i & =e 
3; 8 4 18 4 END; 3 
3 i7 4079 4 END ; 
: 1555 toe) ELSE BEGIN 
: 1730 4 4 1+¢+ F 
: 1731 408s 4 ' This is a global symbol. Save its address. ; 
3 17 é 4084 4 ! Then update the variable GST_BEGIN_ADDR to : 
: i rtf ? : point to the next symbol. : 
; L =, NL . . 
1735 40 3 4 OLD_ADDRESS GST_BEGIN_ADDR 
; Vy $ rhs +4 ? CASE .OLD_ADDRESS CENTRY-TYPE) FROM GSD$C_PSC TO GSD$C_SPSC OF ; 
: 1738 4090 4 SET ; 
: 1739 4091 4 3 
3; 1740 4092 4 CGSD$C_PSC): : 
3: 1741 40935 5 BEGIN : 
3 17tg 4094 5 GST_BEGIN_ADDR = .OLD_ADDRESS + ° 
3 174 4095 g (OLD_ADDRESSCGPS$T_NAME] = OLD_ADDRESSCGPS$T_STARTJ) : 
; bog 1038 ? END + .OCD_ADDRESS CGPS$B_NAMLNGJ; ; 
3; 1746 4098 4 : 
3 1747 4099 4 3 
i ree soe sam : 
; 1750 1186 5 GST_BEGIN_ADDR = .OLD_ADDRESS + : 
3; 1751 41035 6 (OLD_ADDRESSCSDF$T_NAME] = OLD_ADDRESSCSDF$T_STARTJ) : 
; 1728 4104 5 + ,OCD_ADDRESS CSDF$B_NAMLNG); : 
; N .OLD_ ; 
a: “dae same : 
: 1F8e tio8 4 
; HAT it : CGSDSC_EPHA: : 
: 1759 4111 5 GST_BEGIN_ADDR = .OLD_ADDRESS + ; 
: 1760 e116 6 (OLD_ADDRESSCEPM$T_NAME] - OLD_ADDRESSCEPM$T_START]) : 
> 1761 4113 5 + .OCD_ADDRESS CEPASB_NAMLNGJ; : 
3 1798 tet ? — -OLD_ADDRESS : 
3 1764 4116 4 3 
: 1765 4117 4 3 
he t119 S08 PEPIN 
3 1768 4120 LOCAL : 
3 1769 4121 5 NUM_ARGS; ! Max formal args : 
3; 1770 tis¢ 5 GST_BEGIN_ADDR = .OLD ttt + 3 
3 1771 412 (OLD_ADDRESSCEPMST_NAME] - OLD_ADDRESSCEPMST_START]) : 
3 1774 4124 + .OCD_ADDRESS CEPASB_NAMLNGJ; : 
3 177 4125 NUM_ARGS = .GST_BEGIN_ADDRCGST_P_MAX 3 : 
3 1774 41 § 5 GST-BEGIN ADDR = .GST-BEGIN_ADBR™+ MINMAX_OVERHEAD; : 
: WH NOM_ 3 
176 a 4 MICE (.NOM_ARGS GTR 0) ; 
: 177 ‘ie 6 BEGIN : 
> 1778 4130 6 GST_BEGIN_ADDR = .GST_BEGIN_ADDR + | ; 
3; 1779 4131 6 s02T BE GIN_ADDRUGST _P_RER_CNT) + ARGDSC_OVERHEAD; | ; 
; 1780 4132 6 NUM_ARGS = .NUM_ARGS = 1; : 
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GLOBAL ROUTINE PATS$RST_FREEZ ( UNITS ) = | 
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i FUNCTIONAL DESCRIPTION: 
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Isolate storage allocation 
i.e. Do exactly what PATS$F 
PATCH, but take care of an 
or may not exits), when it 
which wants the storage. 


he RST builder/manipulator. 
oes for the rest of 
erences (which may 
e RST interface 
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For now, there IS a difference - an RST-pointer is 
returned, NOT the usual vonguerd pointer. RST-pointers 
are something internal to the RST builder/manipulator, 
and it doesn’t want to ever see anything but RST-pointers 
(even if someday RST-pointers are the same a as 
virtual addresses). This is really the motivation for 
having PATSRST_FREEZ. 

j 


Formal Parameters: 

UNITS = the number of units of storage which are 
required. This unit will remain whatever 
unit PATSFREEZ knows about. 

Implicit Inputs: 

See PATSFREEZ 

Implicit Outputs: 
See PATSFREEZ 


Rc itine Value: | 
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0, if something goes wrong, an RST-pointer to the 
allocated storage, otherwise. 


Side Effects: 
See PATSFREEZ 


FRLF 


DOCOCOO OO OOO OOOOH 09 WWW WWW O98 NI NIN NIN NINN NO AAA AAAAO 
FAR 9 OONAUE WN O ODNOU EWN O OONAU EWN OOONOULS wr 


BEGIN 
LOCAL 


STORAGE _PTR; 
STORAGE_PTR = PATSFREEZ( .UNITS ); 


lee 

' Currently an RST-pointer is just Like a yieeual 
} pt that the top 16 bits are 0 in the 

' former, and hex 7FFFO000 in the Latter. 

' NOTE: THIS IS ONLY TRUE IF THE DEBUGGER INDICATOR IS TURNED OFF IN 
PATSFREE_INIT. IF IT IS TURNED ON, THEN THE STORAGE IS OWN STORAGE, NOT 
le 


02.09 0d Cd 09 G0 0d Cd On Od 00 OD Oo 
SOODNOUESWN —“OVOOnNOu 
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ee 


CONTAINED IN SYSTEM SPACE. 
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SoFEX 


a, 
PATINT 16-Sep-1984 01 6 VAX-11 Bliss-32 V4.0- 
v04-000 18-8887 382 12 9g 3 DISKSVMSMASTER:CPATCH 
; 1867 4 18 RETURN( .STORAGE_PTR = .PATSGL_RST_BEGN ); 
: 1868 421 
; 1869 4220 END; 


06 Pas + | 60008 Pdi PATSAST FREEZ. Save nothing 
000000006 EF 01 FB $b 008 CALLS #1, PATSFREEZ 
0 000000006 _ EF ce 9000¢ SUBL2 PATSGL_RST_BEGN, RO 


; Routine Size: 20 bytes, Routine Base: _PATSCODE + OSFD 


Pp 2 | 
CIPATINT 832049" (135 


Ps 
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; 1871 : 1 ! GLOBAL ROUTINE PATSRST_RELEASE ( RST_PTR, SIZE ) : NOVALUE = 
: 1B48 255§ 1 14s 
: 1874 4 4 | FUNCTIONAL DESCRIPTION: 
: 1879 ¢ i LL storage which 
: late storage deallocation for all storag : 
: 1878 ¢ 5 : i i eenneted via RST-pointers. 
: 1878 (558 1 | hat PATSFREERELEASE does for the rest of ; 
 1Ba0 d 3 i PATCH bee cane care of any differences (which may 
: Bet 4231 1 | or may not exits), when it is the RST interface 
: 1882 4 ¢ 1 i which wants to free up this special-access storage. 
188 d i difference - an RST-pointer is : 
: 1886 d ¢ i + hag airats which eoarog? to free up. This makes 
: Be 4236 1! BATSRST RELEASE the inverse of PATSRST_FR 4 ust 
; 1889 4237 1! as is true for the standard PATCH storage primitives. 
: 1/ 
: 1889 iis : Formal Parameters: 
1890 t$¢ i - i hich storage : 
: 1833 é34i : ona ve abiel yoy oy Bo This Coot be the same as : 
1893 1508 1! one which was returned by DBGSRST_FREEZ. : 
: 188 4244 1: SIZE -The number of units which corresponds ; 
; 1898 4245 1 | to the storage to be freed. 
: 1! 
: 1899 434? : Implicit Inputs: 
: 1899 1509 1 | See PATSFREEZ : 
; 190% 1584 : Implicit Outputs: 
: 1808 1588 || See PATSFREEZ 
: 1382 4254 1! 
: 1908 $522 ; Routine Value : 
: 1907 4337 ; NOVALUE 
: 4 ! ; 
: 1909 4359 i Side Effects: 3 
: 1915 t5e4 1 See PATSFREEZ 
Bis Bie yi : 
: 1914 4264 BEGIN ; 
we BEd . ae: : 
: i RST-pointer is just Like a virtua 
: 1318 4 a i po ny Bh ndl that the top 6 bits are 0 in 
: 1919 1588 i im the former and hex 7FFFO000 in the Latter. 
. bes 
: 195% 257) $ PATSFREERELEASE( .RST_PTR + .PATSGL_RST_BEGN, SIZE ): 
+ 1922 4272 1 END; 2 


Hi R. 

PATINT 16-Sep VAX=-11 Bliss-32 V4.0-742 Page 54 
v04=000 1ergeen13Re 93:85:82 OTe SuwGmAStencceaton. SecaparinT.03209% (tes 
0000 00 .ENTRY PATSRST_RELEASE, Save nothing : 4 31 
08 AC DD PUSHL  $1Z + 4271 

7E AC 000000006 FF C1 ADDL3 PATSGL_RST_BEGN, RST_PTR, -(SP) : 

000000 $6 EF 2 FB E CALLS #2, PATSFREERELEASE ~ ; 
04 0001 RET + 4272 


; Routine Size: 22 bytes, Routine Base: _PATSCODE + 0611 


: Run me: 
; Elapsed Time: 
3; Lines/CPU Min: 


1575 coge,* 52 data bytes 
243.1 


378 
; Lexemes/CPU-Min: 30094 


252 pages 


poe | Used: 
; Compilation Complete 


. 
3 | 

PATINT 1h-se -1984 01 756 VAX-11 Bliss-32 V4.0-742 Page 55) 

v04=000 ere eer1g8d 12:95;584 DP SKSUMEMASTERSCPAT CN. SACIPATINT.B3204° ss! 

> 1924 4273 1 END ! End of module 

: 1958 4274 0 ELUDOM 

-EXTRN LIBSSIGNAL | 

; PSECT SUMMARY 

: Name Bytes Attributes 

: _PATSOWN 44 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC »ALIGN(2) 

; _PATSCODE 1575 NOVEC,NOWRT, RD, eNOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; se S » NOVEC,NOWRT,NORD ,NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 

; _PATSPLIT NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) 

; Library Statistics 

ps eee a en ee eae ymbols -------- Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 32 0 1000 00:01.8 

; Information: 1 

3; Warnings: 0 

3; Errors: 

; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /VARIANT:1/LIS=LIS$:PATINT/OBJ=OBJ$:PATINT MSRC$:PATINT/UPDATE=(ENH$:PATINT) 

; Size: 


= E | 


TARY | 
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